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Abstract 

A  satellite  with  lifting  eapabilities  may  enter  into  a  skip  trajeetory  wherein  perigee 
of  the  orbit  is  within  the  sensible  atmosphere  of  the  Earth.  During  flight  through  the 
atmosphere,  aerodynamie  forees  may  be  utilized  to  modify  the  orbital  trajeetory  rather 
than  using  onboard  fuel.  This  aeroassisted  maneuver  has  the  potential  to  deerease  fuel 
eosts  of  re-tasking  satellites  to  overfly  ground  loeations,  the  eost  of  orbit  rendezvous,  and 
initial  orbit  insertion  from  launeh.  The  trajeetory  dynamies  of  purely  propulsive  in-plane 
and  out-of-plane  maneuvers,  along  with  aeroassisted  maneuvers,  are  simulated  in  order  to 
determine  the  time  of  arrival  and  AV  assoeiated  with  eaeh  maneuver  required  to  overfly  a 
sample  ground  target.  Results  indieate  that  aeroassisted  maneuvers  offer  more  overflight 
solutions  per  day  than  planar  maneuvers  while  requiring  less  AV  than  exo-atmospherie 
plane  ehange  maneuvers.  The  time  of  arrival  and  AV  assoeiated  with  eaeh  maneuver 
required  to  overfly  a  ground  target  is  found  for  multiple  ground  target  loeations  and 
starting  orbits  in  order  to  determine  analytieal  trends.  Erom  these  trends,  elosed-form 
estimations  of  the  AV  and  arrival  time  are  generated  for  eaeh  maneuver  type.  Initial 
elosed-form  estimations  show  reasonable  aeeuraey.  Eurthermore,  the  ability  of  the 
aeroassisted  maneuver  to  modify  an  initial  orbital  trajeetory  is  quantified  by  measuring 
the  ehange  in  inelination  and  right  aseension  of  the  aseending  node  (RAAN)  as  perigee  is 
lowered  into  the  atmosphere.  Results  show  a  75%  deerease  in  AV  over  traditional  exo- 
atmospherie  maneuvers  with  a  single  skip  enabling  a  satellite  to  ehange  the  orbital 
inelination  and  RAAN  up  to  45°  and  90°  respeetively. 
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I.  Introduction 


General  Issue 

The  development  of  Trans-Atmospheric  Vehicles  (TAVs)  enable  the  utilization  of 
skip  or  atmospheric  maneuvers  wherein  the  aerodynamic  forces  can  be  exploited  with 
lifting  surfaces  to  maneuver  the  vehicle  to  a  desired  orbit  change  without  the  use  of 
onboard  propellant.  The  purpose  of  this  research  is  to  determine  under  what  conditions 
an  atmospheric  skip  maneuver  would  be  preferable  to  more  traditional  methods,  such  as 
a)  phasing  maneuvers  (change  only  the  semi-major  axis  or  size  of  the  orbit);  b)  simple 
plane  changes  (change  only  the  inclination  of  the  orbit);  and  c)  Combined  plane  changes 
(change  both  the  inclination  and  the  right  ascension  of  the  ascending  node  (RAAN)  of  the 
orbit,  where  RAAN  is  the  angle  between  the  right  ascension  and  the  vernal  equinox). 
Another  purpose  of  this  study  is  to  identify  and  exploit  trends  in  the  velocity  change  cost 
(AV)  of  the  aeroassisted  maneuver  given  various  initial  orbits  and  mission  parameters  in 
order  to  enable  vehicle  users,  and  researchers  a  preliminary  estimate  of  cost  for  a  desired 
orbital  change. 

Problem  Statement 

The  capability  of  having  a  satellite  over  any  given  spot  on  the  Earth  at  any  given 
time  is  extremely  valuable  for  a  variety  of  reasons,  to  include,  reconnaissance, 
surveillance,  and  weather  tracking.  While  infeasible  to  have  satellites  everywhere  at 
once,  this  capability  is  approximated  using  constellations  of  satellites;  each  enabled  to  be 
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re-tasked  in  order  to  overfly  a  desired  point  on  the  Earth  at  a  desired  time.  These  re- 
taskings  are  extremely  expensive  in  terms  of  fuel  cost,  which  for  an  orbiting  satellite 
equates  to  system  lifespan  and  mission  availability.  Overall,  the  user’s  need  and 
associated  benefit  of  re-tasking  a  satellite  must  be  evaluated  against  the  degradation  of 
system  lifespan  in  terms  of  months  or  even  years. 

TAV’s  have  the  potential  of  offsetting  some  of  these  fuel  costs,  for  certain  types 
of  maneuvers.  The  capabilities  of  the  TAV  to  offset  fuel  costs  remains  largely  undefined 
and,  therefore,  it  is  the  focus  of  this  research  to  explore  the  capabilities  of  a  notional  TAV 
defined  in  Table  1.1  to  change  any  given  Low  Earth  Orbit  (LEO)  to  a  new  desired  LEO 
orbit  so  as  to  overfly  a  specified  ground  location,  rendezvous  with  another  satellite  or  be 
placed  in  its  mission  orbit. 

Table  1.1.  Trans- Atmospheric  Vehicle  (TAV)  Parameters  (Bettinger,  2014:  4) 


Total  Wet  Mass 

5000  kg 

Planform  Area  (S) 

10  m^ 

Coefficient  of  Drag  (Cd) 

0.5 

Coefficient  of  Lift  (Cl) 

3.0 

Research  Objectives,  Questions  and  Hypotheses 

It  is  the  intent  of  this  research  to  complete  the  following  research  objectives: 

•  Given  any  circular  reference  orbit  determine  the  AV  and  associated  time 
of  arrival  (TOA)  required  to  overfly  any  given  ground  target  location  on 
the  Earth,  within  some  tolerance,  using  purely  planar  phasing  maneuvers, 
simple  plane  changes,  and  atmospheric  skip  maneuvers. 
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•  Extrapolate  data  from  multiple  reference  orbits,  target  locations,  and  bank 
angles  to  create  a  general  AV  and  TOA  calculator  for  any  target  location 
and  reference  orbit. 

•  Identify  trends  in  both  AV  cost  and  TOA  with  target  latitude  versus  orbit 
inclination  and  target  longitude  versus  orbit  RAAN. 

•  Given  any  circular  reference  orbit,  determine  the  reachability  domain  of 
the  TAV  to  enter  other  orbital  trajectories  via  atmospheric  maneuvering. 

Methodology 

The  dynamics  model  used  throughout  this  research  was  developed  by  Dr.  Kerry 
Hicks  in  his  book  An  Introduction  to  Astrodynamic  Re-Entry.  The  equations  of  motion 
are  defined  in  Eqs  (1.1)  -  (1.6)  and  are  valid  for  both  exo-atmospheric  and  atmospheric 
maneuvers  without  thrust  (Hicks,  2009:42,  52). 


f  =  siny 

(1.1) 

cosy  cos 0 

^ 

r  COS0 

(1.2) 

cosy  sin  0 

0  = 

r 

(1.3) 

D 

V  = - 

m 

—  ^  sin  y  +  ra)0  cos  0  (cos  0  sin  y  —  sin  0  sin  0  cos  y) 
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Where  all  quantities  are  defined  in  the  nomenelature  index  of  Appendix  A. 

The  majority  of  the  researeh  done  was  through  a  dynamies  simulation  model 
whieh  allows  the  user  to  define  a  target  loeation  on  the  Earth,  an  initial  eireular  LEO 
orbit,  TAV  parameters,  a  simulation  run  time,  and  a  start  date  and  time.  The  simulation 
model  ean  also  sweep  through  any  input  parameter  while  holding  the  others  eonstant. 
Given  the  inputs  the  simulation  uses  the  equations  of  motion  defined  above  to  propagate 
the  orbit  forward  in  time  for  the  user  speeified  run  time.  The  simulation  will  then  find  all 
target  overflight  solutions  for  three  types  of  maneuvers;  eompletely  in-plane  phasing 
maneuvers,  simple  plane  ehange  maneuvers,  and  atmospherie  skip  maneuvers  (defined 
below).  Multiple  parameters  are  reeorded  for  eaeh  overflight  sueh  as:  time  of  arrival, 
needed  veloeity  ehange,  inelination  ehange,  aeeeleration,  and  perigee  altitude.  The 
overflight  data  was  reeorded  for  multiple  target  loeations  and  initial  orbits  in  order  to  map 
broader  trends  and  determine  under  what  eonditions  an  atmospherie  skip  maneuver  is 
profitable.  Onee  data  from  multiple  seenarios  was  eolleeted  the  data  was  analyzed  for 
relationships  and  the  data  was  fit  to  eurves  using  various  methods.  Models  were  then 
developed  whieh  give  reasonable  estimations  of  the  eost  of  aeroassisted  maneuvers  whieh 
ean  be  used  by  system  users  to  determine  the  worth  of  doing  sueh  a  maneuver. 
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Phasing  Maneuvers. 

A  phasing  maneuver  is  performed  by  either  increasing  or  decreasing  the  semi¬ 
major  axis  of  the  original  reference  orbit.  An  instantaneous  increase  in  velocity  in  the 
direction  of  satellite  motion  will  create  a  lofting  eccentric  orbit  with  perigee  at  the 
original  reference  orbit  maneuver  altitude  (Fig.  1.1).  This  increase  in  semi-major  axis 
will  increase  the  period  of  the  orbit,  thus  allowing  the  Earth  more  time  to  rotate  before 
the  satellite  passes  over  a  given  location  and  effectively  move  the  ground  track  westward 
(Fig.  1.2). 


Figure  1.1.  Lofting  in-Plane  Phasing  Maneuver 
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Figure  1 .2.  Increased  Semi-Major  Axis  Resulting  in  a  Westward  Shift  of  the 

Groundtrack 

Conversely,  an  instantaneous  decrease  in  velocity  in  the  direction  of  satellite 
motion  will  create  a  descending  eccentric  orbit  with  apogee  at  the  original  reference  orbit 
maneuver  altitude.  This  decrease  in  semi-major  axis  will  decrease  the  period  of  the  orbit 
and  therefore  allow  the  Earth  less  time  to  rotate  before  the  satellite  passes  over  a  given 
point,  effectively  moving  the  ground  track  eastward  (Fig.  1.3).  A  descending  phasing 
maneuver  is  limited  by  the  perigee  altitude  of  the  descending  eccentric  orbit;  once  the 
orbit  perigee  is  below  the  sensible  atmosphere  friction  from  the  atmosphere  will  reduce 
the  kinetic  energy  of  the  TAV.  Such  a  reduction  in  energy  will  prevent  the  TAV  from 
reaching  the  initial,  pre-maneuver  orbit  altitude  without  an  additional  orbit-raising 
maneuver.  Figure  1.4  shows  the  variation  in  longitude  and  altitude  for  both  lofting  and 
descending  phasing  maneuvers. 
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—  Original  Groundtrack 

—  Decreased  Semi-Major  Axis 
Groundtrack 


Figure  1.3.  Decreased  Semi-Major  Axis  Resulting  in  an  Eastward  Shift  of  the 

Groundtrack 


Lofting  and  Descending  Phasing  Maneuver 
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Figure  1.4.  Increasing/Decreasing  the  Orbital  Period  via  a  Lofting/Descending  Phasing 

Maneuver 
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Plane  Change  Maneuvers. 

For  the  purposes  of  this  research,  a  plane  change  maneuver  is  defined  as  a  change 
only  in  orbit  inclination  (Fig  1 .5).  The  AV  for  this  maneuver  is  given  by  Eq.  (1.7),  which 
was  obtained  from  William  E.  Wiesel  in  his  book  Spaceflight  Dynamics  (1 10).  The 
direction  that  the  ground  track  is  shifted  for  both  an  increase  and  decrease  in  inclination 
depends  on  the  direction  the  satellite  is  moving  (north  or  south)  as  well  as  the  hemisphere 
in  which  the  maneuver  is  performed.  These  effects  are  detailed  in  Tables  1.2  and  1.3,  and 
are  shown  in  Eig.  1.6. 


Eigure  1.5.  Simple  Plane  Change  Showing  a  25°  Inclination  Change 


AF  =  2Vi„itiaisin  (Ai)  (1.7) 

Where 

AV  =  Velocity  change  needed  for  the  inclination  change 
Vinitiai  =  Satellite  velocity  at  time  of  maneuver 
Ai  =  Inclination  change 
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Table  1.2.  Effect  on  Pro-Grade  Ground  Track  Due  to  Inclination  Change 


Inclination 

Change 

Hemisphere 

Current  Heading 

Ground  Track 
Effect 

(  +  ) 

North 

North 

North-West 

South 

North-East 

South 

North 

South-East 

South 

South-West 

(-) 

North 

North 

South-East 

South 

South-West 

South 

North 

North-West 

South 

North-East 

(  +  )  or  ( - ) 

Equator 

North  or  South 

No  Change 

Table  1.3.  Effect  on  Retro-Grade  Ground  Track  Due  to  Inclination  Change 


Inclination 

Change 

Hemisphere 

Direction 

Ground  Track 
Effect 

(  +  ) 

North 

North 

North-East 

South 

North-West 

South 

North 

South-West 

South 

South-East 

(-) 

North 

North 

South-West 

South 

South-East 

South 

North 

North-East 

South 

North-West 

(  +  )  or  ( - ) 

Equator 

North  or  South 

No  Change 

E 


Eig.  1.6.  Effect  on  Groundtrack  at  Various  Stages  of  Orbit 
Eor  a  Positive  Inclination  Change 
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Aeroassisted  Maneuvers 


A  skip  or  aeroassisted  maneuver  is  similar  to  a  descending  phasing  maneuver  with 
the  exception  that  the  TAV  descends  into  the  sensible  atmosphere  and  then  banks  either 
left  (-)  or  right  (+)  in  order  to  change  both  inclination  and  RAAN.  Fig.  1.7  illustrates  the 
three  phases  of  an  aeroassisted  maneuver;  exo-atmospheric  deorbit,  atmospheric  flight, 
and  exo-astmospheric  re-orbit.  The  effect  on  the  inclination  and  RAAN  for  a  given 
positive  or  negative  bank  depends  on  the  flight  direction  and  current  hemisphere  location 
(Table  1.4).  Once  the  TAV  reaches  its  decayed  apogee  altitude  following  atmospheric 
passage  the  vehicle  can  either  re-circularize  its  orbit  at  the  decayed  apogee  altitude  or 
initiate  a  Hohmann  transfer  and  re-circularize  at  the  higher  original  altitude. 


Phase  3 

(ExoAtmospheric  Re-orbit) 


Measurable  Atmosphere 


Phase  1 
(Exo-Atmospheric  Deorbit) 


Initial  Circular  Orbit 

Phase  2 

(Atmospheric  Flight) 


Figure  1.7.  Schematic  of  Trajectory  for  an  Aeroassisted 
Orbital  Transfer  (Rao,  et  ah,  2008;  4) 
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Table  1.4.  Effect  on  a  Pro-Grade  Orbit  Inclination  and  RAAN 
Due  to  Banking  within  Atmosphere 


Bank 

Hemisphere 

Direction 

Effect  on 
Inclination 

Effect  on 
RAAN 

(  +  ) 

North 

North 

(-) 

(-) 

South 

(-) 

(  +  ) 

South 

North 

(  +  ) 

(-) 

South 

(  +  ) 

(  +  ) 

(-) 

North 

North 

(  +  ) 

(  +  ) 

South 

(  +  ) 

(-) 

South 

North 

(-) 

(  +  ) 

South 

(-) 

(-) 

Table  1 .5.  Effect  on  a  Retro-Grade  Orbit  Inclination  and  RAAN 
Due  to  Banking  within  Atmosphere 


Bank 

Hemisphere 

Direction 

Effect  on 
Inclination 

Effect  on 
RAAN 

(  +  ) 

North 

North 

(-) 

(  +  ) 

South 

(-) 

(-) 

South 

North 

(  +  ) 

(  +  ) 

South 

(  +  ) 

(-) 

(-) 

North 

North 

(  +  ) 

(-) 

South 

(  +  ) 

(  +  ) 

South 

North 

(-) 

(-) 

South 

(-) 

(  +  ) 

Assumptions  and  Limitations 

The  scope  of  this  research  is  limited  to  circular  LEO  reference  orbits.  The 
limitation  is  reasonable  as  most  satellites  with  the  capability  of  performing  an 
aeroassisted  maneuver  reside  in  LEO.  Other  assumptions  include:  two-body  dynamics; 
spherical  Earth;  constant  mass,  lift  coefficient  and  drag  coefficient;  lift  always 
perpendicular  to  the  velocity  vector  and  drag  always  parallel  to  the  velocity  vector.  Two- 
body  dynamics  are  very  accurate  for  small  time  scales.  The  majority  of  the  research 
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presented  is  limited  to  24  hrs  and  therefore  multiple  body  dynamics  have  little  effect  on 
the  TAV  trajectory.  Oblate  Earth  effects  are  also  minimal  and  were  neglected  as  the 
overall  effort  of  this  study  is  to  determine  trends  and  patterns  for  the  timing  and  AV  of 
overflight  solutions  and  orbital  parameter  change.  Oblate  Earth  effects  have  no  effect  on 
the  trends  and  little  effect  on  the  timing  and  AV  of  solutions.  The  study  is  limited  to  non¬ 
thrusting  TAVs  during  the  aeroassisted  maneuver  and  so  mass  stays  constant  other  than 
for  oblation  which  is  small  enough  to  be  ignored.  Constant  lift  and  drag  coefficients  are  a 
simplifying  case  but  the  findings  in  this  study  can  be  modified  for  vehicles  with  variable 
lift  and  drag. 

Preview 

With  a  general  outline  of  the  research  objectives  and  methodology  given  in 
Chapter  1 ,  Chapter  II  will  comprise  a  review  of  relevant  literature  on  the  topic  of  skip 
entry  and  aeroassisted  maneuvers.  Studies  have  shown  that  orbit  modification  can  be 
done  using  aeroassisted  maneuver  using  less  AV  than  traditional  methods.  However, 
research  has  been  more  specific  in  scope  with  regards  to  usability  of  the  maneuver  to 
perform  a  valuable  mission  from  multiple  starting  orbits.  Chapter  III  will  provide  a  more 
in-depth  analysis  of  the  methodology  employed  to  obtain  the  results  given  in  Chapter  IV. 
Chapter  III  will  also  include  an  analysis  of  the  validity  of  the  preceding  assumptions  and 
limitations.  In  addition  to  simulation  results  Chapter  IV  will  provide  a  closed- form 
analytic  equation  capable  of  being  used  to  determine  the  cost  and  timing  of  ground  target 
overflight  solutions  using  phasing,  simple  plane  change,  and  aeroassisted  maneuvers. 
Chapter  V  will  discuss  the  significance  of  the  present  research  as  well  as  provide  an 
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assessment  of  further  potential  researeh  on  the  topic  of  skip  entry  maneuvers.  The 
appendix  material  will  include:  nomenclature,  test  matrices,  and  MATLAB 
programs/functions  used  in  the  simulation  model. 
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II.  Literature  Review 


Chapter  Overview 

The  literature  review  presented  in  this  chapter  provides  a  summary  of  relevant 
research  pertaining  to  aeroassisted  satellite  maneuvers  so  as  to  show  uniqueness  in  the 
research  presented  by  this  thesis  as  well  as  provide  an  understanding  of  current 
technology  and  related  research  efforts  in  the  field  of  aeroassisted  maneuvers. 

Relevant  Research 

Multiple  studies  beginning  in  the  early  1990’s  have  shown  aeroassisted 
maneuvers  to  have  many  potential  benefits.  Researchers  have  demonstrated  significant 
fuel  savings  over  purely  propulsive  maneuvers  for  both  out-of-plane  and  in-plane 
maneuvers.  In  Paul  G.  Gonsalves,  Scott  M.  Allen,  and  Alper  K  Caglayan’s  technical 
report,  “An  Alternative  Concept  for  Aeroassist  Orbit  Transfers,”  two  types  of  maneuvers 
are  identified:  1)  co-planar  orbital  transfers  from  high  Earth  orbit  (HEO)  to  EEO;  and  2) 
an  orbital  plan  change  with  or  without  a  decrease  in  orbital  altitude.  They  further 
categorize  these  maneuvers  into  ‘hard’  and  ‘soft’  maneuvers.  A  ‘soft’  maneuver  is 
defined  as  “a  multiple  pass  aeroassisted  orbital  transfer  which  involves  allowing  the 
vehicle  to  stay  at  higher  altitudes  and  use  available  aerodynamic  forces  during  each 
perigee  pass  to  perform  and  orbital  transfer,”  while  a  ‘hard’  maneuver  entails  “forcing 
the  vehicle  to  pull  down  into  the  atmosphere  and  performing  the  aeroassisted  orbital 
transfer  with  a  single  pass”  (Gonsalves,  et  ah,  1991:9-10).  ‘Soft’  maneuvers  were 
determined  to  be  beneficial  for  stationkeeping  type  operations  as  they  don’t  require  a 
deboost/re-boost  stage  and  the  heating  and  acceleration  are  kept  minimal.  Gonsalves  et 
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al.  determined  that  a  ‘hard’  maneuver  may  be  beneficial  when  “a  political  or  military 
crisis  necessitates  a  spacecraft  performing  a  hard  maneuver  to  position  itself  over  a 
specific  geographic  region  for  a  short  period  of  time”  (Gonsalves,  et  ah,  1991:10).  A 
hard  type  of  maneuver  allows  for  a  much  faster  orbital  transfer  but  comes  at  a  higher  fuel 
cost  and  increased  heating  and  acceleration  loads. 

In  a  study  of  minimum-fuel  LEO  aeroassisted  orbital  transfer,  Christopher  Darby 
and  Anil  V.  Rao  identify  aerobrake,  aerocapture,  and  aerogravity  assist  maneuvers. 
Aerobrake  is  a  planar  maneuver  wherein  the  perigee  of  an  orbit  is  placed  within  the  upper 
atmosphere  of  a  planet  in  order  to  allow  aerodynamic  drag  to  decrease  both  the  semi¬ 
major  axis  and  eccentricity  of  an  orbit.  Similar  to  aerobrake  is  aerocapture  which  utilizes 
the  aerodynamic  forces  of  the  upper  atmosphere  to  decrease  the  orbital  energy  of  a 
hyperbolic  orbit  to  that  of  an  elliptical  orbit.  Lastly,  aerogravity  assist  “combines  the 
atmosphere  with  propulsion  and  gravity”  in  order  to  produce  a  desired  change  in  an  orbit 
on  a  hyperbolic  trajectory  (Darby  and  Rao,  2010:3). 

Further  definitions  of  various  types  of  aeroassisted  maneuvers  are  found  in 
Richard  E.  Johnsons’  thesis  entitled,  “Effects  of  Thrust  Vector  Control  on  the 
Performance  of  the  Aerobang  Orbital  Plane  Change  Maneuver.”  Three  categories  of 
maneuvers  are  identified  as  being  synergistic  in  nature:  aerobang,  aerocruise,  and 
aeroglide.  All  three  maneuvers  are  similar  and  differ  only  in  the  use  of  thrust  during  the 
atmospheric  phase  of  the  maneuver.  Propulsive  forces  are  used  by  all  three  types  to 
lower  the  vehicle  into  the  atmosphere  wherein  the  aerodynamic  forces  are  used  to  modify 
the  vehicle’s  orbit.  For  an  aerobang  maneuver,  the  vehicle  continuously  thrusts  at  the 
maximum  throttle  setting.  Continuously  thrusting  allows  the  vehicle  to  spend  a  shorter 
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amount  of  time  within  the  atmosphere  therefore  redueing  the  heating  effects.  The 
increased  speed  through  the  atmosphere  also  increases  the  aerodynamic  forces,  thus 
allowing  for  a  greater  change  in  orbital  parameters  and  a  smaller  amount  of  fuel  needed 
for  re-circularization  after  the  maneuver.  An  aerocruise  maneuver  also  continuously 
thrusts  through  the  atmosphere,  but  only  thrusts  enough  to  counteract  drag.  Lastly, 
aeroglide  uses  no  thrust  while  passing  through  the  atmosphere  and  requires  a  greater 
amount  of  fuel  to  re-circularize  after  the  atmospheric  maneuver  (Johnson,  1993:3-4). 

Of  these  three  types  of  maneuvers,  John  C.  Nicholson  shows  that  the  aeroglide  is 
the  least  expensive  in  terms  of  fuel  use  in  his  “Numerical  Optimization  of  Synergistic 
Maneuvers.”  He  illustrates  that  for  a  20%  expenditure  of  available  fuel,  an  inclination 
change  of  6°,  5°,  and  7°  is  possible  for  the  aerobang,  aerocruise,  and  aeroglide  maneuvers 
respectively.  Furthermore,  the  aeroglide  maneuver  is  capable  of  delivering  an  18°  change 
in  inclination  for  a  40%  expenditure  of  fuel,  while  the  aerobang  and  aerocruise  are  only 
capable  of  delivering  16°  and  14°  respectively.  The  lesser  performance  of  the  aerobang 
and  aerocruise  maneuvers  is  due  in  part  to  larger  heating  constraints.  Nicholson 
continues  with  a  comparison  of  the  aeroassisted  maneuvers  with  purely  propulsive 
maneuvers  conducted  outside  the  atmosphere.  He  concludes  that  all  aeroassisted 
maneuvers  outperform  exo-atmospheric  inclination  change.  For  the  20%  and  40%  fuel 
expenditure  cases,  the  purely  propulsive  plane  change  can  provide  a  5°  and  11° 
inclination  change,  respectively  (Nicholson  1994:68). 

Nicholson’s  findings  are  confirmed  by  Michael  S.  Parish  in  his  thesis, 

“Optimality  of  Aeroassisted  Orbital  Plane  Changes.”  Parish  concludes  that  aeroassisted 
maneuvers  in  general  require  less  propellant  than  an  exo-atmopsheric  maneuver  to 
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produce  a  desired  ehange  in  inelination  angle  (Parish,  1995:53,  55).  Darby  and  Rao  also 
find  that  aeroassisted  maneuvers  require  less  AV  for  a  given  inclination  change  than  do 
exo-atmospheric  maneuvers.  For  example,  their  research  shows  that  an  inclination 
change  of  20°  requires  1.5  km/s  of  AV  for  an  aeroassisted  maneuver,  while  the  exo- 
atmospherie  maneuver  required  2.8  km/s.  The  differenee  is  even  starker  for  an 
inelination  ehange  of  40°:  the  aeroassisted  maneuver  required  2.0  km/s,  while  the  exo- 
atmospherie  maneuver  required  5.5  km/s  of  AV  (Darby  and  Rao,  2010:21). 

In  their  paper  “Numerieal  Optimization  Study  of  Multiple-Pass  Aeroassisted 
Orbital  Transfer,”  Anil  V.  Rao,  Sean  Tang,  and  Wayne  P.  Hallman  examined  the  problem 
of  a  minimum-impulse  multiple-pass  aeroassisted  orbital  transfer  from  geostationary 
orbit  (GEO)  to  LEO  with  eonstraints  on  heating  rate,  angle-of-attaek,  and  transfer  time. 
Rao  et  al.  determined  that  “When  the  heating  rate  is  uneonstrained  the  multiple-pass 
transfer  offers  only  a  small  savings  in  DV  over  the  single-pass  transfer  whereas  when  the 
heating  rate  is  eonstrained  the  multiple-pass  maneuver  offers  significant  savings  in  DV 
over  the  single-pass  transfer.”  (Rao,  et  ah,  2002:  228-227).  Eurthermore,  the  total 
atmospherie  inelination  ehange  approaehed  the  limit  of  approximately  36.2°  as  the 
number  of  atmospherie  passes  inereased.  This  inelination  ehange  limit  varies  with  TAV 
lift  to  drag  ratio.  In  all  test  eases,  the  aeroassisted  orbital  transfer  offered  “substantial 
savings”  in  AE  when  eompared  with  non-eoplanar  two-impulse  (Hohmann-type)  and 
three-impulse  (bi-elliptie),  all-propulsive  transfers  eondueted  in  the  vaeuum  environment 
(Rao,  et  al,  2002:228-230). 

Prior  to  the  eommeneement  of  any  researeh  into  aeroassisted  maneuvers,  a  firm 
foundation  in  the  understanding  of  atmospheric  re-entry  is  required.  In  Space  Vehicle 
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Design,  Michael  Griffin  and  James  Freneh  discuss  reference  systems  needed  to 
understand  atmospheric  re-entry.  They  define  the  entry  interface  altitude  eommonly 
taken  by  eonvention  as  122  km  (Griffin  and  French,  2004:277).  In  order  to  obtain  a 
desired  lateral  maneuver,  Griffen  and  Freneh  state  that  the  “lifting  entry  vehiele  must 
bank  to  obtain  a  turning  force  normal  to  the  initial  plane  and  upon  attaining  the  desired 
heading  angle  change,  reduce  the  bank  angle  again  to  zero”.  They  also  state  that  the 
propulsive  requirements  for  both  interplanetary  and  orbital  operations  can  be  signifieantly 
redueed  with  maneuvers  that  utilize  the  atmosphere  for  aero  braking  or  aeroassisted  plane 
ehange  (Griffin  and  Freneh,  2004:317-318). 

Summary 

Multiple  studies  have  shown  that  aeroassisted  maneuvers  offer  a  unique  and  more 
affordable  option  to  exo-atmospherie  orbital  transfers.  It  now  beeomes  important  to 
quantify  the  capabilities  of  the  aeroassisted  maneuver.  This  quantifieation  includes 
constraints  on  the  mission,  timing,  and  initial  orbit  that  are  required  to  justify  the  use  of 
an  aeroassisted  maneuver.  It  will  also  be  important  to  understand  the  orbital  parameter 
ehanges  possible  given  any  starting  orbit.  This  study  will  differ  from  other  studies  in  two 
ways:  first,  the  aeroassisted  maneuver  will  be  analyzed  for  its  use  in  overflying  ground 
targets  as  opposed  to  simply  orbit  change;  second,  the  goal  of  this  study  is  to  find 
analytieal  trends  for  multiple  mission  types  while  starting  from  multiple  initial  orbits  as 
opposed  to  simply  studying  the  aerodynamics  of  the  aeroassisted  maneuver. 
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III.  Methodology 


Chapter  Overview 

The  purpose  of  this  ehapter  is  to  provide  a  deseription  of  the  model  used  to  obtain 
the  results  throughout  this  thesis.  This  chapter  will  also  provide  an  explanation  of  the 
assumptions,  limitations,  and  algorithms  used  in  the  dynamics  model  for  both  exo- 
atmospheric  and  atmospheric  skip  maneuvers  to  include  the  atmospheric  model  and  the 
deceleration  calculations.  Furthermore,  the  method  of  gathering  and  analyzing  data  will 
be  discussed  for  both  the  ground  target  overflight  and  the  orbit  reachability  via 
aeroassisted  maneuver  sections. 

Overflight  Simulation  Dynamics  Model 

The  AV  and  TO  A  needed  to  overfly  a  ground  target  from  an  initial  orbit  using  in¬ 
plane  phasing  maneuvers,  simple  plane  change  maneuvers,  and  aeroassisted  maneuvers 
were  determined  using  an  overflight  simulation  dynamics  model.  The  model  accepts 
initial  orbit  and  target  location  inputs,  then  autonomously  finds  the  AV  and  TOA  for  each 
maneuver  type.  A  flow  diagram  of  the  model  is  shown  in  Fig.  3.1.  The  algorithm  for 
each  maneuver  will  be  given  in  their  respective  sections  below. 
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Ground  Target 
Overflight  Program 


Figure  3.1.  Overflight  Simulation  Dynamics  Model  Flow  Diagram 
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Model  Inputs 

The  user  ean  modify  any  of  the  input  parameters  whieh  inelude:  initial  orbit, 
target  loeation,  simulation  start  date  and  time,  simulation  run  time,  and  vehiele 
parameters.  The  initial  orbit  is  defined  in  terms  of  the  six  elassieal  orbital  elements 
defined  by  Wiesel  in  his  book  Space  Flight  Dynamics  (Fig.  3.2). 

1 .  Semi-Major- Axis,  a:  Half  the  major  diameter  of  the  orbital  ellipse  (sinee  a 
spherieal  Earth  and  circular  orbit  are  both  assumed  this  value  will  be  equal 
to  the  summation  of  the  satellite  altitude  and  radius  of  the  Earth). 

2.  Eccentricity,  e:  Specifies  the  relative  shape  of  the  ellipse  (e  =  0  for  a 
circular  orbit) 

3.  Inclination,  i:  The  angle  between  the  equatorial  plane  and  the  orbital 
plane  measured  at  the  ascending  node  (the  point  where  the  orbit  passes  the 
equator  while  traveling  north).  It  is  also  the  angle  between  a  line  normal 
to  the  orbital  plane  and  the  line  from  the  center  of  the  Earth  through  the 
North  Pole;  the  inclination  range  is  0°  <  i  <  180°. 

4.  Right  Ascension  of  the  Ascending  Node  (ff):  The  angle  between  the 

vernal  equinox  and  the  ascending  node,  similar  to  longitude;  the  RAAN 
range  is  0°  <  <  360°. 

5.  Argument  of  Perigee,  0:  The  angle  between  the  line  of  nodes  and  the 
perigee  point,  (for  circular  orbits  perigee  is  not  defined  and  so  0  becomes 
unnecessary) 

6.  True  Anamoly,  v:  Gives  the  current  location  of  the  satellite  along  the 
orbital  trajectory.  The  angle  between  the  line  of  perigee  (for  circular 
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orbits  and  ro  =  0,  the  point  of  perigee  is  the  line  of  nodes)  and  the  satellite. 
The  V  range  is  0°  <  v  <  360°. 


Figure  3.2.  Angle  Visualization  of  Classical  Orbital  Elements  (Hicks,  2009:1 1) 

Orbital  Elements  to  Inertial  Planet  Fixed-States 

In  order  to  use  the  equations  of  motion  developed  by  Hicks,  the  position  and 
velocity  of  the  satellite  must  be  defined  using  six  state  variables  defined  below  and 
shown  in  Fig  3.3  (Hicks,  2009:29-31).  These  state  variables  should  be  defined  in  relation 
to  a  planet  fixed  coordinate  system  where  Cxi  rotates  with  the  Earth  and  points  through 
the  equator  at  a  longitude  of  0°  (the  prime  meridian),  Czi  points  through  the  north  pole  and 
Cyi  points  out  the  equator  at  a  longitude  of  90°.  The  six  state  variables  are  defined  as: 

1 .  Radial  Position,  r:  Distance  from  the  center  of  the  Earth. 
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2.  Longitude,  0;  Angular  distance  east  (+)  or  west  (-)  from  the  prime 
meridian  (-180°  <  0  <  180°). 

3.  Latitude,  cj):  Angular  distance  north  (+)  or  south  (-)  of  the  equator  (-90°  < 
cp  <  90°). 

4.  Inertial  Velocity,  V;  Magnitude  of  velocity  relative  to  inertial  space. 

5.  Flight  Path  Angle,  y:  The  angle  between  the  local  horizontal  plane  (the 
plane  passing  through  the  vehicle  and  orthogonal  to  the  position  vector) 
and  the  velocity  vector.  The  flight  path  angle  is  negative  for  a  satellite 
heading  towards  the  Earth  and  positive  for  a  satellite  moving  away  from 
the  Earth,  this  is  similar  to  pitching  angle  (-90°  <  y  <  90°).  . 

6.  Heading  Angle,  \|/;  The  angle  between  the  local  parallel  of  latitude  and  the 
projection  of  the  velocity  vector  on  the  local  horizontal  plane,  vp  defines 
whether  the  satellite  is  moving  north  (+)  or  south  (-);  (-180°  <  vp  <  180°). 


Eigure  3.3.  Illustration  of  the  Six  State  Variables  in  Relation  to  Planet-Fixed 

dzi)  and  Vehicle  Pointing  (6^2,  ^z'2)  Coordinate  Systems  (Hicks,  2009:31) 
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The  classical  orbital  elements  must  now  be  transformed  into  the  six  state 


variables.  The  angle  between  the  prime  meridian  and  the  vernal  equinox  must  be 
determined  because  the  state  position  variables  are  defined  relative  to  a  rotating  Earth. 
This  is  done  by  first  calculating  the  time  difference  between  the  simulation  start  time  and 
a  known  time  when  the  prime  meridian  was  aligned  with  the  vernal  equinox,  then 
multiplying  that  time  by  the  rotation  rate  of  the  Earth,  0)0.  The  position  and  velocity 
vectors  (  fi  )  can  be  calculated  and  expressed  in  the  perifocal  coordinate  system  (Eig. 
3.4)  using  Eqs.  (3.1)  -  (3.4)  developed  by  Hicks  (Hicks,  2009:22-23). 


a(l  —  e^) 

r  = - 

1  +  e  cos(v) 

(3.1) 

f  =  r  cos(v)  ep  +r  sin  (y)eQ 

(3.2) 

p  =  a(l  —  e^) 

(3.3) 

^  [-  sin(v)  ep  +  {e  +  cos(v))e,2] 

(3.4) 

Where 

\i  =  Gm0  =  3.986  x  10^  kmV 

11  2  2 

G  =  universal  gravitational  constant  =  6.67  x  10'  Nm  /kg 
m0  =  mass  of  the  Earth  =  5.98  x  10^"^  kg 
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A  dbectkii 


Fig.  3.4.  Perifocal  Coordinate  System  (Flicks,  2009:21) 


The  position  and  velocity  vectors  can  then  be  transformed  into  planet  fixed  coordinates 
(Fig  3.3)  via  the  following  transformation  matrices  (Hicks,  2009:29-30): 


cos(n)  cos((i))  —  sin(n)  sin(&j)  cos  (i) 

—  cos(n)  sin((i))  —  sin(n)  cos(&j)  cos  (i) 

sin(n)  sin  (i) 

ep 

sin(n)  cos((i))  +  cos(n)  sinCw)  cos  (i) 

—  sin(n)  sin(&j)  +  cos(n)  cosCw)  cos  (i) 

—  cos(n)  sin  (i) 

Sq 

sinC&j)  sin  (i) 

cos(fjj)  sin  (i) 

cos  (i) 

[gi] 


cos(ca0Zlt)  sin((n0Zlt) 
—  sin(ca0Zlt)  cos(ca0Zlt) 
0  0 


(3.6) 


Once  the  vectors  are  defined  in  the  correct  coordinate  frame,  the  angle  states  can  then  be 


determined  using  Eqs.  (3.7)  -  (3.10).  In  Eq.  (3.10)  the  positive  arc-cosine  term  is  used 


for  prograde  orbits  while  the  negative  term  is  used  for  retrograde  orbits.  The  r(l),  r(2), 
and  r(3)  terms  rerpresent  the  H*,  2°‘^,  and  3^‘^  terms  of  the  r  vector. 


r(2) 

9  =  atan  — - 
r(l) 


(3.7) 
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n  ^"(3) 

0  =  -  -  acos  -r^ 


Y 


n 

r  ■ 

V 

- acos 

2 

|f| 

V 

0 


n 

=  -  +  acos 
2  “ 


r^i  ■ 


(3.8) 

(3.9) 


(3.10) 


Inertial  States  to  Relative  States 

The  velocity,  flight  path  angle,  and  heading  angle  found  above  are  defined 
relative  to  inertial  space  and  need  to  be  found  relative  to  the  rotating  Earth.  In  order  to  do 
this  the  position  and  velocity  as  vectors  must  be  expressed  in  the  planet-fixed  coordinate 
system.  This  is  again  accomplished  through  the  use  of  the  transformation  matrices  found 
in  Chapter  3  of  Hicks’  text.  A  vehicle  pointing  reference  frame  is  shown  in  Fig.  3.3.  The 
position  state,  ‘r’  can  be  written  in  vector  form  in  the  vehicle-pointing  reference  frame  as: 


0  62  (3.11) 

lqJ 

Similarly,  the  velocity  can  be  written  in  vector  form  using  a  velocity  reference  coordinate 
frame  e"  where  the  e'y  axis  is  defined  as  the  direction  of  the  vehicle  velocity  vector. 


V  = 


(3.12) 


These  vectors  can  then  be  transformed  into  the  Earth- fixed  coordinate  frame  (e^)  using 
the  two  transformation  matrices  shown  below  (Hicks,  2009:30-35) 
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(3.13) 


62  = 


cos(7) 

—  sin(7)  cos  (ifj) 

—  sin(7)  sin  (ifj) 


sin  (7) 

cos (7)  cos  (ifj) 
cos(7)  sin  (ifj) 


0 


—sin  (ifj) 
cos  (ifj) 
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cos(0)  cos(0) 
cos(0)  sin(0) 
sin(0) 


—  sin(0) 
cos(0) 
0 


—  sin(0)  cos(0) 

—  sin(0)  sin(0) 

cos(0) 


62 


(3.14) 


With  the  position  and  velocity  vectors  written  in  an  Earth-fixed  coordinate  systems  and 
by  assuming  that  the  atmosphere  velocity  doesn’t  vary  with  altitude,  the  relative  velocity 
can  be  calculated  by  subtracting  the  cross  product  of  the  Earth’s  rotation  and  the  vehicle 
position  vector  from  the  vehicle  velocity  vector  (Eq.  3.15)  (Hicks,  2009:393). 

«7=  'v-^^xr  (3.15) 


Where 


= 


0 

0 


L7.2921158  x  10"^ 

Einally,  the  flight-path  angle  and  heading  angles  relative  to  the  rotating  Earth  are 
determined  in  the  same  manner  as  the  flight-path  angle  and  heading  angles  relative  to 
inertial  space  were  found  but  substituting  the  rotating  Earth  relative  velocity  for  the 
Inertial  velocity  as  shown  in  Eqs.  (3.16)  -  (3.17). 


n 

r  ■ 

V 

- acos 

2 

|f| 

V 

n 


0  =  -  +  acos 


(3.16) 


(3.17) 
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Numerical  Integration  of  the  Equations  of  Motion 

With  the  initial  states  defined  relative  to  the  rotating  Earth.  Hieks’  equations  of 
motion  Eqs.  (1.1)  -  (1.6)  ean  be  numerieally  integrated  from  t  =  0  to  a  user  speeified 
simulation  time  (default  is  24  hours)  to  determine  the  trajeetory  of  the  unperturbed  orbit. 
The  derivation  of  said  equations  of  motion  is  done  in  Hieks’  text  and  will  not  be  shown 
here.  However,  the  assumptions  made  in  the  said  derivation  are  (Hieks,  2009:55): 

1)  Eift  and  drag  are  perpendieular  and  parallel  to  veloeity,  respeetively. 

2)  Gravity  aets  along  the  r  vector  line 

3)  Mass  is  Constant 

4)  The  vehicle  is  treated  as  a  point  mass 

5)  Planet  rotation  is  constant  about  the  north  pole 

6)  No  thrust 

The  integration  of  the  equations  of  motion  is  completed  using  a  fourth-order  Runge-Kutta 
solver.  The  model  was  validated  against  actual  flight  data  of  the  Apollo  10  re-entry. 
Eigure  3.5  shows  a  comparison  of  the  re-entry  flight  data  for  altitude  as  a  function  of  time 
with  the  results  of  the  4*  order  Runge-Kutta  integration  of  the  equations  of  motion  (Eq 
(1.1)  -  (1.6)).  During  integration  the  deceleration  and  heating  are  calculated  at  each  time 
step  along  the  trajectory.  Assumptions  related  to  deceleration  and  heating  are  describe  in 
the  subsequent  sections. 
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Apollo  10  Flight  Data 

Runae-Kutta  4th  Order  Eouation  of  Motion  Intearation 
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Figure  3.5.  Comparison  of  Apollo  10  Flight  Data  with  Numerical  Integration  for  Model 

Verihcation  Purposes 


Atmospheric  Model 

The  values  for  lift  and  drag  are  calculated  by  the  following; 


L  = 


D  = 


PClSV^ 

2 

pCoSV^ 


(3.18) 

(3.19) 


Where  Cl,  Cd,  and  S  are  assumed  constant  and  defined  in  Table  1.1.  V  is  defined  as  the 
magnitude  of  the  relative  velocity,  and  p  is  the  atmospheric  density.  The  density  is 
calculated  using  a  combined  piecewise  density  model  developed  by  Robert  Bettinger.  In 
the  development  of  his  model,  Bettinger  compared  two  different  models  with 
experimental  atmospheric  data  derive  a  combined  atmospheric  model.  First,  an 
exponential  atmospheric  model  was  examined  and  is  given  by: 
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p(/i)  =  p^e 


(3.20) 


-p{h) 

-i 

where  is  the  density  at  sea  level  (1.225  kg/m  ),  P  is  the  atmospheric  scale  height  and 
a  constant  for  any  given  planet  (for  Earth  P  =  0. 14  km'^),  and  h  is  the  altitude.  The  Earth 
is  assumed  to  be  a  uniform  sphere  and  therefore  h  =  r  —  R^. 

Second,  the  single  variation  model  provided  by  Nguyen  X.  Vinh,  Adolf 
Busemann,  and  Robert  D.  Culp  in  their  book  Hypersonic  and  Planetrary  Entry  Flight 
Mechanics  was  examined  (Vinh  et  ah,  1980:9). 

l+a 

p(V)  =  Pi 

where  the  index  i  denotes  seven  different  sections  of  the  atmosphere. 

With  these  models  Bettinger  then  compared  the  exponential  and  single  variation 
models  with  the  density  results  from  the  MSIS-E-90  density  model  within  an  altitude 
range  of  0  <  /i  <  1000  km  for  the  sample  dates  of  01  January  2000  -  2012,  and  the 
atmospheric  density  profile  model  obtained  from  the  AGI  analysis  module  ‘  Astrogator’ 
within  Satellite  Toolkit.  The  models  are  plotted  against  each  other  and  shown  in  Eig.  3.6. 

Bettinger  concludes  that  the  exponential  model  maintains  the  least  deviation  from 
the  MSIS  and  STK  data  up  to  approximately  84  km  where  the  solution  diverges  and  the 
single  variation  model  becomes  more  accurate.  The  single  variation  model  is  only 
applicable  up  to  300  km  and  therefore  another  model  is  needed  to  model  the  upper 
reaches  of  the  rarefied  atmosphere  (  300  km  <  h  <  1000  km).  With  these  prediction 
accuracy  and  limitations  identified,  Bettinger  then  developed  a  piecewise-continuous 
function  or  ‘Combined  Model’  described  by  Eq  (3.22)  (Bettinger,  2014:  25). 
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Figure  3.6.  Comparison  of  Atmospheric  Density  Models  with 
MSIS-E-90  and  STK®  Density  Data  for  01  January  2012  (Bettinger,  2014:28) 


-PW 


l+a 


P(V)  =  ^ 


Pi 


1  +  S 


H 


-  hj^ 
\  Rm 


-1 


,  h  <84  km 


,  84  <  h  <  120  km 


(3.22) 


.(4.50847623  x  10^  '  42O  <  /i  <  1000  km 

For  all  altitudes  above  the  1000  km  threshold,  the  density  is  assumed  to  be  0.0  kg/m^. 

Parameters  given  in  the  single  variation  segment  of  Eq.  (3.22)  are  listed  in  the  table 

below: 


Table  3.1.  Atmospheric  Density  Model  Parameters  (Bettinger,  2014:29) 


Altitude  Section 

hi  (km) 

Pi  (kg/m^) 

a 

84  <  hgd  <  90  km 

85 

7.726  X  10"^^ 

0.1545455 

197.9740 

91  <  hgd  <  106  km 

99 

4.504x10-^ 

0.1189286 

128.4577 

107  <  hga  <  120  km 

110 

5.930x  10-^ 

0.5925240 

432.8484 
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Deceleration  Calculation 


The  limiting  conditions  under  which  all  re-entering  vehicles  must  operate  are  the 
deceleration  and  atmospheric  heating  loads.  Therefore,  the  calculation  of  these  loads 
throughout  the  skip  maneuver  is  essential  in  determining  the  validity  of  any  given 
maneuver.  Hicks’  breaks  down  the  deceleration  into  tangential  (along  the  velocity 
vector)  and  normal  (along  the  lift  vector)  (Hicks,  2009:66).  These  are  given  as: 


D 

(cLdeceDv  =  —  +  dsinij) 
m 


_  -L 

(.^decel) L  ~  ~~ 

m 


- gcos(y) 

r 


(3.23) 

(3.24) 


By  assuming  a  spherical  Earth  we  can  assume  that  gravity  is  only  a  function  of  the  radius, 
therefore  a  spherical  Earth  gravity  model  (Eq.  (3.25))  can  be  used  in  Eqs.  (3.23)  -  (3.24). 


9^9® 


f) 


(3.25) 


2 

Where  is  the  sea-level  gravitational  acceleration  (9.7983  m/s  )  and  is  the  radius  of 
the  Earth  (6378.137  km)  (Hicks,  2009:64).  The  overall  normalized  deceleration  in  terms 
of  number  of  g’s  can  then  be  calculated  by: 


(fidecel) 


V (fldecel)v  (.^decel)l 

9 


(3.26) 


Heating  Calculation 

An  equation  for  calculating  the  stagnation  heat  flux  is  given  by  Anil  V.  Rao,  Sean 
Tang,  and  Wayne  P.  Hallman  in  their  paper,  “Numerical  Optimization  Study  of  Multiple- 
Pass  Aeroassisted  Orbital  Transfer.” 
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(3.27) 


17600 


3.15 


♦  2 

Where  Q  is  the  stagnation  point  heating  rate  in  BTU/(ft  s),  p  is  the  atmospheric  density 

at  the  satellites  current  altitude,  P0is  the  atmospheric  density  at  sea  level,  V  is  the 
satellites  current  relative  velocity,  and  Ve  is  the  circular  orbit  speed  at  the  surface  of  the 
Earth  (Rao,  et  ah,  2002:219). 

Latitude  and  Longitude  Passes 

With  a  method  established  for  determining  the  states  and  loads  for  any  given 
starting  conditions,  an  algorithm  is  now  required  to  determine  the  time  of  arrival  and  cost 
of  overflying  a  specified  ground  target  with  the  three  maneuver  types.  In  order  to 
determine  the  needed  change  in  ground  track  for  these  various  maneuver  types,  the 
groundtrack  position  relative  to  the  target  position  was  quantified  by  measuring  both  the 
relative  latitude  difference  of  each  target  longitudinal  crossing,  and  the  relative  longitude 
difference  of  each  target  latitudinal  crossing  as  shown  in  Fig.  3.7  and  3.8.  The  times  of 
these  crossing  relative  to  the  start  time  and  the  direction  (north  or  south)  are  also  noted. 
Since  the  numerical  integration  provides  only  discrete  points  and  not  continuous  values 
for  the  position  of  the  satellite  as  a  function  of  time,  the  values  for  each  longitudinal  and 
latitudinal  crossing  were  calculated  by  a  method  of  linear  interpolation.  Specifically,  the 
interpolation  utilized  the  two  points  directly  north  and  south  for  the  longitudinal  crossing 
and  the  two  data  points  directly  east  and  west  of  the  latitudinal  crossing.  These  values 
are  also  used  in  the  targeting  algorithm  to  determine  the  proximity  of  the  satellite  to  the 
target  location. 


33 


Figure  3.7.  Relative  Latitude  Differenee  Points  of 
Eaeh  Groundtrack  Target  Longitudinal  Crossing 


Figure  3.8.  Relative  Longitude  Difference  Points  of 
Each  Groundtrack  Target  Eatitudinal  Crossing 


Phasing  Manuever  Algorithm 

A  completely  planar  solution  to  overflying  the  target  is,  in  general,  the  least 
expensive  type  of  maneuver  in  terms  of  AV.  Due  to  the  conservation  of  angular 
momentum,  the  velocity  change  required  to  either  increase  or  decrease  the  semi -major 
axis  within  the  plane  of  an  orbit  is  significantly  less  than  the  velocity  change  required  to 
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change  the  orbital  plane.  While  the  phasing  solution  is  the  least  expensive  maneuver,  it  is 
also  the  most  solution.  The  solution  space  is  limited  in  two  very  signifieant  ways  because 
the  orbital  plane  is  fixed  in  inertial  spaee:  first,  overflights  are  only  possible  for  targets 
with  latitudes  (north  or  south)  less  than  the  inelination  of  the  orbit;  second,  any  point  on 
the  Earth  with  a  latitude  less  than  the  orbit’s  inelination  will  only  pass  through  the  orbital 
plane  twice  per  revolution  of  the  Earth,  ie:  twice  per  day.  Therefore,  no  matter  how  the 
semi-major  axis  of  an  orbit  is  ehanged  the  time  of  arrival  of  any  overflight  is  constrained 
to  two  distinet  times  for  target  with  latitudes  less  than  orbit  inclination. 

Since  the  target  loeation  on  the  Earth  will  only  pass  through  the  orbital  plane 
twiee  per  day,  a  phasing  maneuver  overflight  can  be  achieved  by  either  increasing  or 
decreasing  the  orbital  period  so  that  the  satellite  overflies  the  target  latitude  at  the  correet 
time.  By  inereasing  the  semi-major  axis  of  an  orbit  the  period  is  also  inereased  thus 
allowing  the  Earth  more  time  to  rotate  per  revolution  of  the  satellite.  This  inerease  in 
orbit  period  effectively  moves  the  groundtraek  westward  (Eig.  3.9).  Similarly,  decreasing 
the  semi-major  axis  will  deerease  the  orbital  period,  thereby  allowing  less  time  for  the 
Earth  to  rotate  per  revolution  of  the  satellite,  effectively  shifting  the  groundtraek  eastward 
(Eig.  3.10). 
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Figure  3.9.  Increased  Semi-Major  Axis  Resulting  In  a  Westward  Shift  of  the 

Groundtrack 


Figure  3.10.  Decreased  Semi-Major  Axis  Resulting  In  an  Eastward  Shift  of  the 

Groundtrack 

The  arrival  time  and  AV  to  overfly  a  ground  target  were  determined  using  the  overflight 
simulation  dynamics  model.  Fig.  3.11  shows  the  algorithm  used  within  the  model  to 
determine  the  arrival  time  and  AV. 
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Figure  3.11.  AV  and  Arrival  Time  Algorithm  for  Overflying  a  Ground  Target  Using  an 
In-Plane  Phasing  Maneuver  Flow  Diagram 


A  closed  from  solution  for  the  arrival  time  and  AV  would  be  benefieial  both  for 


ease  of  eomputing  and  validating  the  simulation  model.  An  orginal  analytieal  solution  id 

derived  below.  The  two  times  where  the  target  loeation  will  be  within  the  orbital  plane, 

measured  from  the  simulation  start  time  until  the  Earth  will  pass  under  the  orbital  plane 

ean  be  determined  by  first  determining  the  longitude  of  the  two  points  where  the  orbital 

plane  interseets  the  target  latitude.  Finding  these  two  longitude  points  ean  be 

aeeomplished  by  finding  the  two  true  anomaly  values  (amount  of  rotation  sinee  erossing 

the  equator  while  heading  north)  whieh  eorrespond  to  the  target  latitude  and  then  using 

those  values  to  determine  the  longitude.  By  expanding  and  simplifying  Eqs.  (3.1)  and 

(3.5)  for  a  eireular  orbit,  the  position  ean  be  written  in  the  Geoeentrie  Equatorial 

Coordinate  Frame  using  the  user  input  orbital  elements  as: 

cos(v)  cos(n)  —  sin(v)  sin(n)  cos  (1) 
f  =  cos(v)  sin(n)  +  sin(v)  cos(n)  cos  (1)  (3.28) 

sin(v)  sin  (1) 

Substituting  this  value  into  Eq.  (3.8)  gives: 

n 

(p  =  —  —  acos  [sin(  v)  sin(i)]  (3.29) 

Solving  for  true  anomaly  gives  the  first  true  anomaly  point  eorresponding  with  the  target 
latitude: 

target) 

Vi  =  asm  - -  (3.30) 

sin(i) 

Due  to  the  faet  that  the  arcsine  funetion  only  returns  values  from  -7i/2  to  7i/2  the  seeond 
true  anomaly  point  eorresponding  with  the  target  latitude  is  simply: 


(3.31) 
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Using  Eq.(  3.7),  the  two  uncorrected  longitude  points  can  be  found  as  follows: 


Quncorrected  1,2  ~  atan 


cos(vi  2)  sin(n)  +  sin(vi  2)  cos(n)  cos  (1) 
cos(vi  2)  cos(n)  —  sin(vi  2)  sin(n)  cos  (1) 


(3.32) 


These  uncorrected  longitude  points  correspond  with  degrees  of  longitude  measured  from 
the  inertial  x-axis  (vernal  equinox)  and  require  transformation  into  longitude  measured 
from  the  Earth  prime  meridian.  This  is  done  by  subtracting  the  amount  the  Earth  has 
rotated  since  the  prime  meridian  and  inertial  x-axis  were  aligned  from  the  uncorrected 
longitude  points: 


6  1,2  ~  ^uncorrected  1,2 


aligned 


(3.33) 


Where  At  is  the  time  measured  in  seconds  from  some  known  time  where  the  inertial  x- 


axis  and  the  prime  meridian  were  aligned  and  the  simulation  start  time.  Einally,  the  times 
corresponding  to  the  Earth  ground  target  being  within  the  orbital  plane  can  be  found  by 
equating  the  target  longitude  distance  to  a  time  difference  via  the  rotation  rate  of  the 
Earth. 


Since  the  variable,  A0  is  defined  from  0  to  3  60,  27i  should  be  if  (O^  2  “  Qtarget)  <  0  to 
make  A0  in  the  correct  range.  Combining  Eqs.  (3.30)  -  (3.34)  and  simplifying  gives  the 
time  of  arrival  for  all  in  plane  maneuvers  given  any  initial  orbit  as  a  function  of  target 
latitude  and  longitude  (Eq.(  3.35)  and  (3.36)).  Again,  t  is  defined  from  0  to  24  hours, 
therefore  if  ti  or  C  is  less  than  0,  24  hours  should  be  added  to  t. 
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tl  =  — < 

a)n 


atan 


V  L^J 


1  -  (^sTn^(f)^)  (0  +  sin(0)cos(n) 


1  -  cos(fi)  tan(i)  -  sin(0)sin(fi) 


^®^^aligned  ® 


(3.35) 


tz  —  { 

OJfl 


atan 


^  sin^(T)^ )  W  +  sin((p)cos(n) 

-  ^ 

1  - 

(sinQ^)  cos(n)tan(i)  sin((p)sin(n) 

^®^^aligned  9 


(3.36) 


The  minimum  amount  of  velocity  change  required  is  related  to  the  northerly  and 
southerly  heading  target  latitude  crossing  with  the  minimum  longitude  difference  divided 
by  the  amount  of  time  for  the  latitude  crossing  to  occur  since  the  beginning  of  the 
simulation.  If  the  longitudinal  difference  of  each  target  latitude  crossing,  along  with  the 
time  measured  from  simulation  start  time  of  each  latitude  crossing  is  known,  then  the 
amount  of  velocity  change  required  can  be  determined  analytically.  First,  the  number  of 
orbits  from  the  start  of  the  simulation  to  each  particular  latitude  crossing  needs  to  be 
calculated.  This  value  is  both  the  integer  number  of  complete  orbits  until  the  latitude 
crossing  as  well  as  the  percentage  of  the  final  orbit  until  the  latitude  crossing.  Since  the 
initial  orbit  is  assumed  to  be  circular  with  constant  velocity  the  satellite  completes  the 
same  percentage  of  its  orbit  for  every  unit  of  time: 


N, 


t. 


(pcrossing 


orbits  ~ 


Pi 


Where  P  is  the  orbital  period  (Sellers,  2004:142): 


(3.37) 


Where 

ai  =  Un-perturbed  orbit  semi-major  axis 


(3.38) 
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|i  =  Earth’s  gravitational  parameter  =  3.98600442  x  10^  km^/s^ 


The  longitude  difference  of  each  target  latitude  crossing  corresponds  to  a  required  shift  in 
the  orbital  period,  while  Norbits  corresponds  to  the  amount  of  time  allotted  for  the  shift  to 
occur.  Thus,  the  change  in  orbital  period  can  be  calculated  as: 


AP  = 


^^(pcrossing 

orbits 


(3.39) 


Now  the  period  of  the  perturbed  orbit  can  be  calculated  by  the  following: 


Pp  =Pi+AP 


(3.40) 


Which  in  turn  allows  for  the  calculation  of  the  semi-major  axis  of  the  perturbed  orbit. 


The  velocity  of  the  perturbed  orbit  can  then  be  found  by  (Sellers,  2004:141-142): 


(3.41) 


2fi 


'v„=  H--  — 


Pj  CLp 

where  Pi  =  Initial  Orbit  Radius  (Rfiarth  +  altitude).  Since  Eq.  (3.42)  gives  the  inertial 
velocity  of  the  orbit,  the  required  change  in  velocity  for  the  phasing  maneuver  can  be 
determined  by  subtracting  the  initial  inertial  velocity  of  the  unperturbed  orbit  from  the 
perturbed  orbit  velocity: 


(3.42) 


^Vphase  =  %  -  %  (3.43) 

Combining  Eqs.  (3.37)  -  (3.43)  and  simplifying  gives  the  velocity  change  required  for  a 

ground  target  overflight  using  a  phasing  maneuver  for  any  circular  orbit  given:  the  initial 
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altitude,  initial  velocity,  the  longitudinal  distance  from  the  target  a  target  latitude 
crossing,  and  the  time  that  crossing  occurs  measured  from  the  maneuver  start  time  (Eq. 
3.44). 


AK 


phase 


% 


(3.44) 


Simple  Plane  Change  Algorithm 

On  the  opposite  end  of  the  AV  cost  solution  spectrum  is  the  “Simple  Plane 
Change”  solution.  For  this  type  of  solution,  multiple  time  of  arrival  solutions  exist  as 
opposed  to  only  two  time  of  arrival  solutions  for  the  phasing  maneuver.  As  a 
consequence  however,  the  cost  in  AV  for  the  simple  plane  change  can  be  enormous.  As 
the  cost  is  generally  high  using  a  simple  plane  change  would  only  be  done  in  the  most 
extreme  of  circumstances  and  is  included  in  the  analysis  for  comparison  purposes.  The 
velocity  change  associated  with  a  simple  plane  change  is  given  in  Eq.  (3.45)  (Bate,  et  al., 
1971:169).  Figure  3.12  shows  the  fuel  cost  for  a  given  inclination  change. 

AV  =  2Esin  (3.45) 
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Required  Velocity  Change  for  a  Desired  Inclination  Change 


Figure  3.12.  Required  Veloeity  Change  for  a  Simple  Plane  Change. 


With  RAAN  remaining  constant,  the  points  where  the  groundtrack  overflies  the 
equator  remain  at  the  same  longitude.  Therefore,  an  overflight  can  be  achieved  by 
changing  the  inclination  of  an  equatorial  overflight  such  that  the  ground  track  is  shifted  to 
overfly  the  target  directly.  Therefore  one  overflight  is  possible  per  orbit  of  the  satellite, 
for  LEO  satellites  this  equates  to  approximately  one  overflight  every  90  minutes. 

In  order  to  determine  the  inclination  change  needed  to  overly  a  ground  target,  an 
algorithm  for  the  change  in  inclination  (increase  or  decrease)  based  on  the  groundtrack 
geometry  is  required.  First,  it  is  noted  that  for  a  given  orbit  inclination  grade  (prograde  or 
retrograde)  only  target  longitude  crossings  which  occur  in  the  same  hemisphere  as  the 
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target  are  possible  to  overfly  without  changing  the  inclination  grade  of  the  orbit. 
Therefore,  it  is  necessary  to  find  all  of  the  overflights  of  the  orbit  constraining  inclination 
to  stay  in  the  same  grade  as  the  original  orbit,  and  then  to  change  the  grade  of  the  original 
orbit  and  find  all  of  the  overflights  with  the  grade  change.  For  each  of  these  cases,  the 
needed  inclination  direction  change  depends  on  the  orbit’s  inclination  grade,  the 
hemisphere  location  of  the  target,  and  the  latitude  difference  of  the  target  longitudinal 
crossings  as  shown  in  Table  3.2. 


Table  3.2.  Needed  Inclination  Change  Based  on  Orbit  and  Groundtrack  Geometry 


Inclination  Grade 

Hemisphere 

Relative  Latitude 
Difference  of  the 
Groundtrack  from 
the  Target 

Needed  Inclination 
Change 

Prograde 

North 

North 

(  +  ) 

South 

(-) 

South 

North 

(-) 

South 

(  +  ) 

Retrograde 

North 

North 

(-) 

South 

(  +  ) 

South 

North 

(  +  ) 

South 

(-) 

Based  on  the  preceding  heuristics  the  amount  of  inclination  change  can  be  determined 
iteratively  by  varying  inclination  until  the  relative  latitude  difference  of  the  groundtrack 
from  the  target  for  each  target  longitude  crossing  is  within  a  set  tolerance.  The  amount  of 
velocity  change  required  for  the  inclination  change  can  then  be  determined  via  Eq.  (3.45). 
Figure  3.13  shows  the  flow  diagram  for  the  simple  plane  change  algorithm  within  the 
overflight  simulation  dynamics  model. 
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Figure  3.13.  AV  and  Arrival  Time  Algorithm  for  Overflying  a  Ground  Target  Using  an 
In-Plane  Phasing  Maneuver  Flow  Diagram 
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Aeroassisted  Maneuver  Algorithm 

Both  phasing  maneuvers  and  simple  plane  change  maneuvers  have  been  used 
extensively  throughout  space  flight  and  are  reasonably  well  understood.  The  purpose  of 
this  study  is  to  determine  the  value  of  atmospheric  skip  maneuvers  and  the  conditions 
under  which  they  are  a  viable  option.  It  is  therefore  necessary  to  compare  the 
atmospheric  skip  maneuver  directly  with  the  phasing  maneuver  and  simple  plane  change 
maneuvers.  The  atmospheric  skip  maneuver  or  aeroassisted  maneuver  shares  many 
similar  advantages  and  disadvantages  with  both  the  phasing  and  the  simple  plane  change 
maneuvers.  For  most  orbits  and  target  locations,  the  aeroassisted  maneuver  has  more 
than  two  time-of-arrival  solutions  and  in  general  costs  less  in  terms  of  AV  than  does  the 
simple  plane  change. 

The  aeroassisted  maneuver  is  completed  by  first  conducting  an  initial  deboost 
bum  which  decreases  the  semi-major  axis  of  the  orbit  so  that  perigee  is  within  the 
sensible  atmosphere.  While  within  the  atmosphere,  the  TAV  banks  and  uses 
aerodynamic  forces  to  modify  its  orbit.  Once  the  vehicle  reaches  trajectory  apogee,  it  is 
commanded  to  either  re-circularize  at  the  apogee  altitude,  which  will  be  less  than  the 
original  circular  altitude,  or  it  is  commanded  to  re-circularize  at  the  original  altitude  via  a 
Hohmann  transfer.  The  total  velocity  change  required  for  the  maneuver  includes  the 
velocity  needed  for  the  de-orbit  bum  as  well  as  the  velocity  needed  to  re-circularize  at 
either  the  decayed  apogee  altitude  the  original  altitude. 

The  total  velocity  change  is  related  to  the  velocity  needed  for  the  initial  deorbit 
burn.  The  larger  the  decrease  in  velocity,  the  more  atmosphere  the  TAV  will  penetrate 
allowing  it  to  more  dramatically  change  its  orbit.  The  deeper  penetration  of  the 
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atmosphere  will  also  eause  the  vehicle  to  lose  more  of  its  kinetic  energy  within  the 
atmosphere  thereby  requiring  a  greater  amount  of  AV  to  re-circularize.  The  amount  of 
atmosphere  penetration  required  is  a  function  of  how  much  groundtrack  change  is  needed 
to  overfly  the  target. 

The  effect  of  the  aeroassisted  maneuver  on  the  orbit  depends  again  on  the 
geometry  of  the  ground  track  when  the  maneuver  is  performed  and  the  direction  of  bank. 
The  effect  on  the  groundtrack  for  maneuvering  at  various  times  through  the  orbit  is 
shown  in  Fig.  3.14  and  Table  3.3.  By  understanding  both  the  effect  of  banking  at 
various  times  throughout  the  orbit,  and  the  relative  latitudinal  difference  of  each  target 
longitude  crossing,  a  heuristic-based  algorithm  can  be  created  to  determine  at  what 
maneuver  section  to  bank  and  in  what  direction  to  bank.  This  algorithm  is  shown  in 
Table  3.4. 


Figure  3.14.  Maneuver  Sections  Used  in  Determining  the  Effect  of  Banking  Within 
Atmosphere  at  Varying  Times  Throughout  Orbit. 
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Table  3.3.  Effect  of  Banking  at  Various  Maneuver  Sections  on  Orbit  Inclination  and 

RAAN. 


Maneuver 

Section 

Bank 

Effect  on 
Inclination 

Effect  on  RAAN 

1 

(  +  ) 

(-) 

(-) 

(-) 

(  +  ) 

(  +  ) 

2 

(  +  ) 

(-) 

(  +  ) 

(-) 

(  +  ) 

(-) 

3 

(  +  ) 

(  +  ) 

(  +  ) 

(-) 

(-) 

(-) 

4 

(  +  ) 

(  +  ) 

(-) 

(-) 

(-) 

(  +  ) 

With  the  maneuver  section  and  bank  direction  set,  it  now  becomes  possible  to 
iterate  the  initial  deorbit  boost  until  the  latitude  difference  of  each  target  longitude  pass  is 
within  pre-determined  tolerances.  This  process,  however,  is  more  complicated  than  it 
was  for  the  phasing  and  simple  plane  change  maneuver  calculations.  First,  the  maneuver 
section  is  known,  but  the  time  required  to  enter  the  atmosphere  given  an  initial  decrease 
in  orbital  velocity  is  not.  To  determine  this  time,  the  velocity  is  decreased  at  t  =  0  and  the 
equations  of  motion  are  then  integrated  forward  in  time.  The  time  until  the  TAV  enters 
the  sensible  atmosphere  (122  km)  is  then  measured  and  defined  as  ‘maneuver  time.’  The 
maneuver  start  time  (the  time  in  the  orbit  when  the  velocity  decrease  should  occur  in 
order  to  enter  the  atmosphere  at  the  desired  maneuver  section)  can  then  be  determined  by 
subtracting  the  maneuver  time  from  the  time  associated  with  the  maneuver  section  (Eq. 
3.46). 

t  start  ~  t  section  ~  ^maneuver  (3.46) 
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Table  3.4.  Aeroassisted  Heuristics  in  Determining  Maneuver  Section  and  Bank  Direction 


Inclination 

Grade 

Target  and 
Groundtrack 
in  the  Same 
Hemisphere? 

Hemisphere 
of  the 

Groundtrack 

Target 

Longitude 

Crossing 

Heading  of 
the 

Groundtrack 

Target 

Longitude 

Crossing 

Relative 
Latitude 
Difference 
of  the 

Groundtrack 
from  the 
Target 

Maneuver 

Section 
for  {  +  ) 
Bank 

Maneuver 

Section 
for  {-) 
Bank 

Prograde 

Yes 

North 

North 

North 

2 

4 

South 

4 

2 

South 

North 

3 

1 

South 

1 

3 

South 

North 

North 

1 

3 

South 

3 

1 

South 

North 

4 

2 

South 

2 

4 

No 

North 

North 

North 

3 

1 

South 

3 

1 

South 

North 

2 

4 

South 

2 

4 

South 

North 

North 

2 

4 

South 

2 

4 

South 

North 

3 

1 

South 

3 

1 

Retorgrade 

Yes 

North 

North 

North 

3 

1 

South 

1 

3 

South 

North 

2 

4 

South 

4 

2 

South 

North 

North 

4 

2 

South 

2 

4 

South 

North 

1 

3 

South 

3 

1 

No 

North 

North 

North 

2 

4 

South 

2 

4 

South 

North 

3 

1 

South 

3 

1 

South 

North 

North 

3 

1 

South 

3 

1 

South 

North 

2 

4 

South 

2 

4 
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Next,  the  equations  of  motion  are  integrated  again  but  with  the  veloeity  deerease 
oeeurring  at  tstan  rather  than  t  =  0.  This  integration  however  does  not  inelude  the  re- 
eireularization  at  apogee  following  the  skip.  If  left  without  re-eireularization,  the  TAV 
eontinues  to  re-enter  the  atmosphere,  losing  energy  eaeh  pass,  thereby  lowering  the  semi¬ 
major  axis  until  the  TAV  impaets  the  Earth.  Therefore,  all  six  state  variables  need  to  be 
determined  at  the  first  apogee  after  skip.  These  states  are  ealculated  by  interpolating 
between  the  two  points  where  the  heading  angle  transitions  from  positive  to  negative  in 
the  trajeetory  data  arising  from  the  numerical  integration.  The  velocity  as  well  as  the 
heading  angle  needed  to  re-circularize  the  orbit  at  this  point  need  to  be  determined.  The 
circular  velocity  is  determined  by  setting  the  change  in  flight  path  angle  to  0  in  Eq.  (3.47) 
with  thrust  equal  to  0,  then  solving  the  resulting  quadratic  equation  for  the  velocity 
(Hicks,  2009:52) 

L 

^Vv  =  —  cos  o  —  q  cos  v  3 - cos  y  -f  2  cos  d)  cos  xb  -f 

m  w  ^  w  r  {2>A1) 

ra)0  cos  0  (cos  0  cos  y  —  sin  0  sin  0  sin  y)  =  0 

The  heading  angle  is  calculated  by  iterating  the  initial  heading  angle  until  the  maximum 
latitude  reached  by  the  circularized  orbit  is  the  same  as  the  maximum  latitude  reached  by 
the  un-circularized  orbit.  The  post-circularized  orbit  trajectory  data  is  combined  with  the 
pre-circularized  data  at  the  apogee  point  to  create  one  set  of  correct  trajectory  data.  The 
latitude  difference  of  each  target  longitude  crossing  of  the  skip  maneuver  trajectory  can 
then  be  calculated.  The  initial  decrease  in  velocity  is  either  increased  or  decreased 
according  to  the  heuristics  in  Table  3.4  and  the  entire  process  is  repeated  again  (Eig  3.15). 
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Algorithm  iteration  continues  until  either  the  latitude  difference  for  each  target  longitude 
crossing  is  within  an  accepted  tolerance  or  the  maneuver  exceeds  pre-determined  limits 
imposed  on  deceleration  and  heating. 


Determine  the  Latitude 
Difference  for  Each  Target 
Lorrgitude  Crossing  of  the 
Original  Orbit  Groundtrack 


Select  A  Longitude  Crossing 


Determine  Maneuver  Section 
and  Bank  Direction  From 
Heuristics  in  Table  3  4 


Determine  Velocity  Needed  to 
Lower  Perigee  into  the  Sensible 
Atmosphere 


Perform  Deorbit  Maneuver 
atl=0 


Propagate  Perturbed  Orbit_a  and 
Determine  the  Time  it  takes  to 
Enter  Sensible  Atmosphere 


Perfonn  Deorbit  Maneuver  at 
Comect  time  so  that  Perigee  is 
Within  the  Detennined 
Maneuver  Section 


Propagate  Perturbed  Orbit_b 
and  Determine  Velocity  Needed 
to  Re-Circularize  After  Skip 


Propagate  Re-Circularized  Orbit 


)  Initial  Velocity 
(Lower  Perigee)  Using 
Targeting  Algorithm 


Increase  Initial  Velocity 
(Raise  Perigee)  Using 
Targeting  Algorithm 


Determine  the  Latitude 
Difference  for  the  Target 
Longitude  Crossing  of  the  Re- 
Circulartzed  Orbit  Groundtrack 


Determine  Arrival  Time  and 
Velocity  Change  Required 
for  Overflight 


Has  Program  Attempted  to 
Find  a  Solution  for  Each  Target 
Longitude  Crossing? 


Yes 


Figure  3.15.  AV  and  Arrival  Time  Algorithm  for  Overflying  a  Ground  Target  Using  an 

Aeroassisted  Maneuver  Flow  Diagram 
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Mapping  Aeroassisted  Trade  Space 

Given  any  initial  circular  orbit,  target  location,  and  simulation  time,  the  time  of 
arrival  and  velocity  change  required  for  every  possible  overflight  using  the  three  types  of 
maneuvers  can  be  determined.  In  order  to  determine  the  conditions  which  would 
encourage  the  use  of  the  aeroassisted  maneuver,  multiple  different  target  locations  and 
initial  orbits  were  simulated  and  subsequently  analyzed  to  ascertain  whether  data  trends 
exist  that  could  yield  closed-form  functions  enabling  and  approximation  of  the  available 
options  via  the  three  types  of  maneuvers.  The  search  space  is  quite  large  and  includes 
varying  initial  semi-major  axis,  initial  orbit  inclination  and  RAAN,  as  well  as  target 
longitude  and  target  latitude.  A  test  matrix  was  developed  and  is  included  in  Appendix  B. 
Reachability 

The  uses  of  aeroassisted  maneuvers  are  varied  and  include  more  than  modifying 
an  orbit  in  order  to  overly  a  target  on  the  Earth.  The  maneuver  can  also  be  used  to 
change  a  satellite’s  orbit  so  as  to  rendezvous  with  another  satellite.  Another  use  of  the 
aeroassisted  maneuver  is  for  initial  orbit  insertion.  The  lowest  inclination  any  satellite 
can  launch  to  is  the  latitude  of  its  launch  site  because  a  satellite  must  overfly  its  launch 
site.  Therefore,  if  a  satellite  mission  requirement  is  for  the  satellite  to  be  at  a  lower 
inclination  than  the  launch  site  latitude,  a  simple  plane  change  is  required  once  in  orbit  to 
lower  the  orbit’s  inclination.  Such  a  maneuver  can  be  tremendously  expensive  as  shown 
in  Fig.  3.12.  Performing  an  aeroassisted  maneuver  instead  of  the  traditional  simple  plane 
change  has  the  potential  of  dramatically  offsetting  costs  for  initial  orbit  insertion. 

With  these  motivations  in  mind,  a  study  of  orbit  reachability  using  an  aeroassisted 
maneuver  was  completed.  For  the  purposes  of  this  research  reachability  is  defined  as  the 
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inclinations  and  RAANs  reachable  when  using  an  aeroassisted  maneuver  from  a  given 
initial  orbit.  As  stated  earlier,  the  effects  on  inclination  and  RAAN  using  an  aeroassisted 
maneuver  depend  on  the  geometry  of  the  orbit  during  the  maneuver.  Therefore,  the  skip 
maneuver  algorithm  described  above  was  modified  to  measure  the  inclination  and  RAAN 
change  of  an  orbit  for  12  different  start  times  (Fig.  3.16),  as  well  as  multiple  initial 
velocity  decreases.  The  initial  velocity  ranged  from  the  velocity  needed  to  enter  the 
sensible  atmosphere,  to  the  velocity  that  would  overload  the  TAV  structurally  (10  g’s). 
The  reachability  test  matrix  is  also  included  in  Appendix  B. 


Figure  3.16.  Maneuver  Start  Times  Defined  for 
Inclination  and  RAAN  Reachability  Study 

Summary 

The  method  for  obtaining  the  results  discussed  in  Chapter  4  have  been  detailed. 
Given  an  initial  state,  the  equations  of  motion  are  numerically  integrated  using  a  4*  order 
Runga-Kutta  method  to  produce  the  orbital  trajectory.  An  equation  for  calculating  the 
time  of  arrival  of  any  phasing  maneuver  solution  was  derived  as  well  as  a  method  for 
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determining  the  associated  change  in  velocity.  The  change  in  velocity  and  time  or  arrival 
was  determined  iteratively  for  target  overflights  via  a  simple  inclination  plane  change  as 
well  as  an  aeroassisted  maneuver.  Finally  a  method  for  determining  the  reachability  of 
any  given  orbital  plane  through  the  use  of  aeroassisted  maneuvers  was  determined  and 
detailed. 
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IV.  Analysis  and  Results 


Chapter  Overview 

This  chapter  will  present  the  results  of  the  dynamies  overflight  model  ineluding 
the  AV  eosts  and  time  of  overflights  using  all  three  maneuver  types.  The  data  for 
multiple  initial  orbits  as  well  as  target  locations  on  the  Earth  will  be  analyzed  and  the 
resulting  trends  will  be  presented.  Methods  for  determining  preliminary  estimates  of  the 
cost  and  time  functions  without  extensive  eomputing  will  be  discussed  and  verified 
against  data  gained  from  the  dynamics  model.  The  results  of  the  reachability  study  will 
also  be  outlined  and  analyzed,  with  these  results  being  compared  to  traditional  methods  to 
determine  overall  AV  cost  savings  via  aeroassisted  maneuvers. 

Results  of  Ground  Target  Overflight  Simulations 

In-Plane  Phasing  Maneuver 

The  timing  of  any  in-plane  phasing  maneuver  overflight  solution  will  have 
significant  impact  on  the  AV  cost  and  timing  of  any  simple  inclination  plane  change  or 
aeroassisted  maneuver.  Equations  (3.35)  -  (3.36)  give  the  timing  of  any  in-plane  solution 
for  a  given  starting  orbit,  start  time,  and  target  location.  Eigures  (4.1)  -  (4.3)  show  the 
time  of  arrival  of  any  in-plane  solution  as  a  function  of  target  latitude.  The  target 
longitude  and  the  initial  orbit  inclination  and  RAAN  change  for  each  figure  and  are  noted 
in  the  figure  heading. 
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Figure  4. 1 .  Time  of  Arrival  Using  and  In-Plane  Solution  with  Varied  Target  Latitude 
with  Inelination  =  45°,  Target  Longitude  =  0°,  RAAN  =  0°,  and  Time  from  Inertial/Planet 
Fixed  Coordinate  Systems  Alignment  =  0  hours 


Figure  4.2.  Time  of  Arrival  Using  and  In-Plane  Solution  with  Varied  Target  Latitude 
with  Inclination  =  45°,  Target  Longitude  =  90°,  RAAN  =  0°,  and  Time  from 
Inertial/Planet  Fixed  Coordinate  Systems  Alignment  =  0  hours 
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Figure  4.3.  Time  of  Arrival  Using  and  In-Plane  Solution  with  Varied  Target  Latitude 
with  Inclination  =  30°,  Target  Longitude  =  0°,  RAAN  =  40°,  and  Time  from 
Inertial/Planet  Fixed  Coordinate  Systems  Alignment  =  2  hours 


Observing  the  effect  of  target  latitude,  target  longitude,  RAAN,  and  inclination  on 
the  shape  of  time  of  arrival  indicates  that  the  latitude  of  a  given  time  very  nearly 
approaches  Eq.  (4.1)  below: 


<p  i  ■  sin  ^^2  ^  ^  ^®^^alignedj  (^-l) 

Equation  (4.1)  can  be  solved  for  the  time  of  arrival  as  a  function  of  target  location,  orbit, 

and  time  from  inertial/planet-fixed  coordinate  system  alignment,  yielding  Eq  (4.2). 


t  =  sin  ^  -f  fl  +  (UfnAt, 


nt 

_  n _ 

aligned  ^  ^2 


(4.2) 
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The  results  of  the  dynamics  model  simulation  in  finding  both  the  cost  and  time  of 
arrival  using  an  in-plane  phasing  maneuver  solution  agree  with  the  time  of  arrival 
solutions  shown  above.  Figure  4.4  shows  the  results  of  the  in-plane  phasing  maneuver 
dynamics  model  simulation  for  an  initial  orbit  and  target  location. 
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Figure  4.4.  Velocity  Change  Cost  and  Time  of  Arrival  to  Overfly  Tehran,  Iran  Using  an 
In-Plane  Phasing  Maneuver  from  an  initial  orbit  with  initial  parameters:  Alt  =  500  km, 
Inclination  =  45°,  Longitude  =  0°,  Latitude  =  0°. 


As  shown  in  Fig.  4.4,  all  solutions  are  divided  into  one  of  two  arrival  time-bins  and  from 
these  bins  the  only  solutions  of  interest  are  the  two  minimum  AV  solutions.  The  two 
minimum  velocity  changes  required  for  the  case  above  are  0.129  km/s  for  the  near  12  hr- 
solution  and  0.065  km/s  for  the  near  18-hr  solution.  The  higher  AV  solutions  represent  a 
large  requisite  change  in  longitude  with  a  short  amount  of  time  for  the  groundtrack 
change  (ie,  performing  the  longitude  change  in  1  orbit  as  opposed  to  5  orbits). 
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The  analytic  solution  for  the  velocity  change  required  for  a  phasing  maneuver 
described  by  Eq.  (3.44),  along  with  the  analytic  solution  for  the  time  of  arrival  solutions 
to  the  phasing  maneuver  (Eqs.  (3.35)  and  (3.36))  were  plotted  against  the  simulation 
model  data  as  shown  in  Eig.  4.5.  As  shown,  The  two  solutions  closely  approximate  each 
other  with  the  percent  error  of  the  minimum  AV  solutions  being  1.2%  for  the  near- 12 
hour  solution  and  1.8%  for  the  near  18-hr  solution. 
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Eigure  4.5.  Comparison  of  the  Dynamics  Simulation  Solution  to  the  Analytical  Solution 
for  a  Phasing  Maneuver  Ground  Target  Overflight  of  Tehran,  Iran;  Given  the  Initial 
Circular  Orbit  with:  Alt  =  500  km.  Inclination  =  45°,  Longitude  =  0°,  and  Latitude  =  0° 
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Simple  Plane  Change  Maneuver  Results 


As  a  ground  target  overflight  solution  exists  via  a  simple  plane  ehange  every 
orbit,  and  the  semi-major  axis  for  this  type  of  maneuver  remains  eonstant,  the  time  of 
arrival  of  all  solutions  will  be  a  multiple  of  the  orbital  period  plus/minus  some  funetion  of 
the  inelination  ehange.  If  it  is  assumed  that  the  ehange  in  time  of  arrival  due  to  the 
inelination  ehange  is  small  then  we  ean  approximate  the  time  of  arrival  as  simply  a 
multiple  of  the  orbital  period.  This  ean  be  seen  in  the  solution  produeed  by  the  dynamies 
model  simulation  for  overflying  Tehran  via  an  inelination  plane  ehange  (Figure  4.6).  The 
minimum  AV  solutions  oeeur  near  the  same  time  as  the  two  in-plane  phasing  maneuver 
solutions.  The  time  of  arrival  of  the  first  overflight  is  approximately: 


TOA-,  =—Pi  (4.3) 

In 

where  Av  is  the  ehange  in  true  anomaly  from  the  maneuver  start  time  to  the  first 
overflight  of  the  target  latitude.  The  time  of  arrival  ean  then  be  approximated  as: 

Av 

TOAj,  =  —Pi  +  (iV  -  l)Pi  (4.4) 

In 

where  N  is  an  integer  eorresponding  with  the  overflight. 
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Figure  4.6.  Simple  Plane  Change  Maneuver  Ground  Target  Overflight 
of  Tehran,  Iran;  Given  the  Initial  Cireular  Orbit  of:  Alt  =  500  km, 

Inelination  =  45°,  Longitude  =  0°,  and  Latitude  =  0° 

The  veloeity  eost  and  timing  of  ground  target  overflights  via  a  simple  plane 
change  were  calculated  using  the  dynamics  model  simulation  over  a  wide  range  of  initial 
orbits  and  target  locations  in  order  to  determine  the  velocity  cost  as  a  function  of  initial 
orbit  and  target  location.  The  resulting  data  shows  a  similar  shape  trend  in  the  dv  vs.  toa 
plot  for  any  input.  Although  a  successful  overflight  is  not  achievable  for  any  given  time 
of  arrival,  it  will  be  useful  to  map  the  discrete  data  points  to  a  continuous  function  of  time 
of  arrival.  Once  this  function  is  created  the  discrete  points  can  be  found  again  by  using 
only  the  arrival  times  available  from  Eq.  (4.4). 

The  data  shows  that  the  velocity  change  as  a  function  of  time  of  arrival  is 
sinusoidal  for  target  latitudes  greater  than  the  initial  orbit  inclination.  For  target  latitudes 
less  than  the  orbit  inclination  the  function  acquires  two  ‘bumps’  as  can  be  seen  in  Fig.  4.6 
from  0  to  5  hours  and  from  12  to  18  hours.  The  end  of  the  lower  bump  correspond  with 
the  timing  solutions  of  the  phasing  maneuver  (Fig.  4.5).  In  order  to  better  visualize  this 
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trend  with  change  in  target  latitude,  Fig.  4.7  shows  a  three-dimensional  surface  of  the 
velocity  change  cost  vs.  time  of  arrival  vs.  target  latitude.  The  surface  can  be  described 
target  latitude  varying  on  the  axis  in  and  out  of  the  page  of  Fig.  4.6,  while  all  other  input 
parameters  remain  constant.  While  it  is  useful  to  plot  the  velocity  change  as  a  continuous 
function  of  arrival  time  it  is  important  to  note  that  in  actuality  only  discrete  time  of 
arrivals  are  possible.  The  black  dots  in  Fig.  4.7  are  the  actual  possible  discrete  time  of 
arrival  overflights  while  the  rest  of  the  surface  is  for  visualization  of  the  trends  only.  The 
highest  cost  is  for  targets  close  to  the  equator  while  the  lowest  costs  are  for  targets  close 
to  the  initial  orbit  inclination.  It  can  also  be  observed  that  trends  in  the  southern 
hemisphere  are  exactly  the  inverse  mirror  of  the  trends  in  the  northern  hemisphere. 
Changes  in  target  longitude  or  initial  orbit  RAAN  while  keeping  other  inputs  constant 
corresponds  with  a  horizontal  shift  of  the  AV  vs.  toa  plot  (e.g.  Fig.  4.6). 
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Figure  4.7.  Velocity  Change  Cost  of  Overflying  Ground  Target  for  a  Desired 
Arrival  Time  and  Target  Latitude  Using  a  Simple  Plane  Change  Maneuver  From 
Initial  Orbit:  Alt  =  500km,  Inclination  =  45°,  Longitude  =  0°,  and  Latitude  =  0° 


With  these  observations  made  it  is  possible  to  define  one  function  that  fits  all  data 
for  the  inclination  plane  change  maneuver.  It  can  be  shown  that  a  function  of  the  type 
shown  in  Eq.  (4.5)  matches  well  with  all  data  collected: 


^plane  ~  -4 


.  7* 
sinl - 


arrival 


2n 


24 


+  B]  + 


(4.5) 


with  the  correction: 

If-  ^Tplane  ^ 
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Then;  {^yplane)^^^  —  (4)  i^^plane) 


where  A  and  C  are  functions  of  target  latitude,  and  orbit  inclination  and  B  is  a  function  of 
target  longitude  and  orbit  RAAN.  The  variables  A,  B,  and  C  were  found  iteratively  using 
a  genetic  algorithm  function  for  many  different  target  latitude/longitudes  and  initial 
orbits.  The  genetic  algorithm  attempts  to  find  the  global  minima  of  the  error  function 
shown  in  Eq.  (4.6)  for  each  case  of  input  parameters  by  guessing  an  initial  A,  B  and  C 
and  then  ‘evolving’  them  toward  an  optimal  solution.  The  optimal  A,  B,  and  C  where 
found  for  multiple  different  initial  input  cases  in  order  to  find  trends  in  A,  B,  and  C  with 
input  parameters.  Figure  4.8  shows  the  A,  B,  and  C  found  which  minimize  the  error 
function  for  multiple  different  target  latitudes. 


error  = 


sin 


^arrival 


2n 


+  B]  + 


(4.6) 


Figure  4.8.  A,  B,  and  C  Which  Minimize  the  Error  Function  (Eq  4.14)  for  Various 

Target  Fatitudes 
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A  least  squares  fit  of  the  data  in  Fig.  4.8  gives: 


^(0)  =  -O.1348|0,«,^g,|  +  11.7 

(4.7) 

^  1  1.15  i4^target  ^  0 

(1.15  TC  ,  (^target  ^  0 

(4.8) 

C  =  5.634  =  A{i) 

(4.9) 

By  using  similar  methods  while  varying  different  input  parameters,  it  ean  be  shown  that 
the  veloeity  eost  for  a  ground  target  overflight  via  an  inelination  plane  change  as  a 
function  of  arrival  time  is: 

^plane  ~  (~d.l348 |  +  11.7)  +  Otarget  ~  B  +  180/c) 

^  (  -0.13481  +  11.7  ^  (4.10) 

^  Uo.l348|(p,„,^g,|  +  11.7/ 

where  all  angular  values  are  in  degrees,  tamvai  is  in  hours  and  k  =  1  for  targets  in  the 
northern  hemisphere  and  0  for  targets  in  the  southern  hemisphere.  Note:  tamvai  is  not 
continuous  but  is  a  discrete  set  of  values  determined  from  Eq.  (4.4).  Equations  (4.4)  and 
(4.10)  were  used  to  calculate  the  time  of  arrival  and  velocity  change  cost  for  the  same 
scenario  as  found  in  Eig.  4.6  and  plotted  against  the  data  from  the  simulation  model  (Eig. 
4.9).  Equation  (4.10)  gives  accurate  results  for  the  velocity  change  cost  for  a  given  time 
of  arrival  for  the  lower  range  of  velocity  cost.  The  accuracy  deteriorates  for  the  upper 
region  of  the  sine  curve  as  the  actual  curve  more  closely  approximates  a  square  wave 
than  a  sine  wave,  however,  the  region  of  greatest  interest  is  the  lower  AV  region  where 
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model  accuracy  improves.  The  RMS  error  is  0.61  km/s  for  the  AV  solution  and  0.19 
hours  for  the  timing  solution.  The  greatest  inaccuracies  stem  from  the  inprecise  time  of 
arrival  estimation  (Eq.  4.4).  An  improvement  in  the  time  of  arrival  model  would 
significantly  improve  the  accuracy  of  the  velocity  calculation.  With  accurate  timing 
solutions  the  RMS  error  for  the  AV  reduces  to  0.543  km/s. 
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Figure  4.9.  Comparison  of  Eqs.  (4.4)  &  (4.10)  to  Simulation  Data  for  Tehran,  Iran 
Overflight  Solutions  from  an  Initial  Orbit  of:  Alt  =  500  km,  Inclination  =  45°,  Starting 
Eongitude  =  178°  W,  Starting  Eatitude  =  0° 


Aeroassisted  Maneuver  Results 

The  time  of  arrival  model  for  the  aeroassisted  maneuver  is  similar  to  that  of  the 
plane  change  maneuver,  with  the  exception  that  for  certain  arrival  times,  the 
corresponding  velocity  change  would  cause  a  violation  of  deceleration  loads.  As  a  result, 
the  time  of  arrival  points  can  be  calculated  by  first  using  Eq.  4.1 1  to  calculate  all  possible 
arrival  times,  then  calculate  the  corresponding  velocity  changes  using  the  model 
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developed  below,  and  finally  eliminating  those  arrival  times  which  require  a  velocity 
change  greater  than  the  allowable  change  that  would  exceed  10  g’s  deceleration. 

Av 

TOAr,=—Pi  +  (iN-l)Pt  (4.11) 

2n 

The  simulation  results  for  the  aeroassisted  maneuver  are  plotted  against  the  results 
for  the  phasing  and  plane  change  maneuvers  in  Fig.  4.10.  It  is  readily  apparent  that  the 
aeroassisted  maneuver  offers  unique  advantages  over  the  other  two  types  of  maneuvers. 
More  arrival  times  are  possible  than  there  are  for  the  phasing  maneuver,  while  the  cost  of 
those  maneuver  is  significantly  less  than  the  cost  for  overflying  at  the  same  time  using  an 
inclination  plane  change  maneuver.  It  is  also  of  note  that  the  shape  of  the  aeroassisted 
maneuver  is  similar  to  that  of  the  inclination  plane  change  maneuver  but  scaled  down. 

The  aeroassisted  maneuver  data  is  plotted  alone  for  better  visibility  in  Fig.  4.11.  Re¬ 
circularization  at  the  original  altitude  increases  the  velocity  change  cost  by  anywhere 
between  .1  and  .45  km/s  and  is  a  function  of  the  velocity  change  cost  required  for  re¬ 
circularization  at  the  decayed  altitude. 
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Figure  4.10.  Comparison  of  AV  and  TOA  Necessary  for  Overlying  Tehran,  Iran  using 
Various  Maneuver  Types  for  an  Initial  Orbit  of;  Alt  =  500  km,  Inclination  =  45°,  Starting 

Longitude  =  178°  W,  Starting  Latitude  =  0° 
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Figure  4.11.  AV  and  TOA  Necessary  for  Overlying  Tehran,  Iran  using  an  Aeroassisted 
Maneuver  from  an  Initial  Orbit  of:  Alt  =  500  km,  Inclination  =  45°, 

Starting  Longitude  =  178°  W,  Starting  Latitude  =  0° 
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The  velocity  change  and  timing  of  all  possible  solutions  using  the  aeroassisted 
maneuver  were  calculated  using  the  dynamics  model  simulation  for  multiple  different 
target  locations  and  initial  orbits  with  the  intent  of  identifying  trends  in  order  to  develop  a 
velocity  change  model.  The  data  shows  that  the  velocity  cost  trends  for  the  aeroassisted 
maneuver  mimic  the  inclination  plane  change  maneuver  cost  with  the  exception  that  the 
higher  AV  solutions  are  not  possible.  Figure  4.12  shows  a  three-dimensional  surface  plot 
similar  to  Fig.  4.7  but  the  velocity  change  is  for  an  aeroassisted  maneuver.  Again,  the 
actual  velocity  change  is  not  a  continuous  function  of  arrival  time,  only  the  discrete 
(black)  points  are  actually  possible,  but  the  continuous  function  allows  for  trend 
visualization. 


Figure  4. 12a.  Surface  Plot  of  Original  Altitude  Aeroassisted  Maneuver  Velocity  Change 
Cost  as  a  Function  of  Both  Arrival  Time  and  Target  Latitude 
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Time  of  Arrival  (hours) 


Figure  4. 12b.  Contour  Plot  of  Original  Altitude  Aeroassisted  Maneuver  Veloeity  Change 
Cost  as  a  Funetion  of  Both  Arrival  Time  and  Target  Latitude 


The  trend  is  very  similar  to  the  trend  seen  in  the  plane  ehange  maneuver  data,  but 
without  the  higher  veloeity  points.  This  similarity  can  be  seen  by  re-plotting  the  data  in 
Fig.  4.7  but  without  the  higher  velocity  points  (Fig.  4.13).  As  the  purpose  of  these  plots 
is  not  to  determine  the  cost  of  a  maneuver,  but  rather  to  identify  and  visualize  trends 
within  the  data.  The  actual  cost  of  the  velocity  change  as  shown  in  the  color  bars  is  not  as 
important  as  the  relative  cost  is  between  the  maximum  and  minimum.  Therefore,  the 
color  bars  are  not  equal  in  the  two  plots  of  Fig.  4.13. 
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Assist  Velocity  Cost  Data 

With  similar  trends  in  velocity  cost,  a  simplified  estimation  of  the  aeroassisted  velocity 
change  is: 


~  ^scale^^plane  min  (4-12) 

Where  Cscaie  is  a  scaling  factor  to  be  determined  and  AVmin  is  the  minimum  velocity 
change  required  to  enter  the  atmosphere  and  re-circularize  the  orbit.  The  scaling  factor  is 
determined  in  a  similar  manner  to  the  A,  B,  and  C  functions  for  the  plane  change 
maneuver.  A  minimizing  function  was  used  to  find  the  scaling  factor  which  minimizes 
the  error  function  below.  This  scaling  factor  was  calculated  for  multiple  different  target 
locations  and  initial  orbits  resulting  in  the  data  shown  in  Fig.  4.14. 


error  = 


data 


scale^^plane  ^min) 


(4.13) 
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Figure  4.14.  Scaling  Factor  for  Minimizing  Error  Function  (Eq.  (4.13))  plotted  against 

Target  Eatitude 

A  least  squares  fit  of  the  data  shows  Cscaie  to  be: 

Cscale  =  3.89  X  10-^  (cPtargetf  "  2.41  X  (cP  target)  +  0.10624  (4.14) 

The  minimum  velocity  needed  to  enter  the  atmosphere  and  re-circularize  again  is  a 
function  of  the  semi-major  axis.  Eor  the  case  of  a  500  km  altitude  initial  orbit  the 
minimum  velocity  change  is  approximately  0.2  km/s.  Using  this  value  along  with  the 
scaling  factor  found  from  Eq.  4.14.  The  velocity  change  as  a  function  of  arrival  time  for 
a  skip  maneuver  with  re-circularization  at  the  original  altitude  can  be  written  as: 

AV,„tp  =  0.2  +  (3.89  X  10-^ “  2-41  X  lO-^(0,„,^,,)  +  0.10624)  (4.15) 


Equation  (4.15)  gives  reasonably  accurate  results  for  calculating  the  velocity 
change  with  larger  inaccuracies  occurring  for  targets  close  to  the  equator.  The  model 
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needs  improvement  but  can  suffice  an  approximation  to  be  used  in  giving  system  users  or 
researches  a  quick  cost  function  of  the  velocity  and  arrival  time  needed  for  an 
aeroassisted  maneuver.  With  the  arrival  times  calculated  using  Eq.  (4.1 1)  the  AV  can  be 
calculated  using  Eq.  (4.15).  All  AV’s  greater  than  1.8  km/s  are  then  discarded  as  these 
velocities  would  overload  the  TAV  (See  Eig.  4.25) .  Eigure  4.15  shows  the  results  of  the 
model  for  one  target  location  and  initial  orbit  case.  The  RMS  error  for  the  AV  is  0.093 
km/s  while  the  RMS  error  of  the  timing  solution  is  0.180  hours  or  10  minutes.  The  error 
is  smaller  for  target  latitudes  greater  than  the  initial  orbit  inclination  while  the  error 
increases  as  the  target  latitude  approaches  the  equator.  The  majority  of  the  error  is  found 
in  the  timing  solution  and  this  error  carries  over  into  the  AV  solution  and  therefore  a  more 
accurate  timing  solution  is  required  to  increase  the  overall  model  accuracy.  The  RMS 
error  of  the  AV  using  accurate  arrival  times  for  the  case  shown  in  Eig.  4.15  is  0.072  km/s. 


Eigure  4.15.  Comparison  of  Model  (Eqs.  4.1 1,  4.13)  to  Dynamic  Simulation  Model  for 
the  Aeroassisted  Maneuver  with  Re-Circularization  at  the  Original  Altitude. 
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Finding  the  velocity  change  required  using  the  aeroassisted  maneuver  with  re¬ 
circularization  occurring  at  the  decayed  altitude  is  simply  a  matter  of  subtracting  the 
correct  amount  from  the  original  altitude  re-circularization  velocity  change.  This  amount 
is  a  function  of  the  velocity  change  required  for  re-circularization  at  the  original  altitude 
and  can  be  shown  to  be: 


original  [0.4(Al'„, +  O.l]  (4.16) 

Equation  (4.16)  in  conjunction  with  Eq.  (4.15)  gives  reasonably  accurate  results  for  the 
velocity  change  using  an  aeroassisted  maneuver  and  re-circularizing  at  the  decayed 
altitude  in  order  to  overfly  a  ground  target. 

Target  Overlfight  Calculator 

The  ground  target  overlfight  simulation  along  with  the  approximations 
determined  above  were  used  to  create  a  target  overlfight  calculator.  This  calculator  is  a 
graphical  user  interface  wherin  the  user  can  input  the  initial  orbit,  target  location,  start 
date  and  time,  simulation  run  time,  and  vehicle  properties.  The  user  can  then  select  to 
use  either  the  numerical  integration  or  the  approximations  determined  above  in  order  to 
determine  the  time  of  arrival  of  possible  overflights  and  their  associated  AV.  The 
numerical  integration  will  give  more  accurate  results  but  will  take  approximately  20 
minutes  for  the  calculations  to  be  made.  The  approximations,  while  less  accurate,  will 
give  results  instantly.  Eigure  4.16  shows  the  graphical  user  interface.  The  outputs  of  the 
interface  are:  firstly,  a  plot  similar  to  figure  4.10  showing  the  arrival  time  on  the 
horizontal  axis  and  the  AV  on  the  vertical  axis  with  the  various  maneuver  types  being 


74 


distinguished  by  different  symbols  and  eolors;  seeond,  a  table  showing  the  time  of 
arrival,  AV,  and  maneuver  type  of  all  overflight  solutions. 


Initial  Orbit 

Target  Location 

semimajor  axis  (km)  ^ 

► 

6500 

Tehran,  iran 

eccentricity  a 

► 

0.0 

latitude  (deg),  N  positive  35.6962I6 

inclination  (deg)  i 

► 

45 

longitude  (deg),  E  positive  51.422945 

argument  of  perigee  (deg)  < 
RAAN  (deg)  < 

true  anomaly  (deg)  i 

► 

0.0 

Start  Date 

2013 

Jan  -r 

Vehicle  Parameters 

1 

Lift  Coefficient  3  0  Mass  (kg) 

Drag  Coefficient  0  5  Planform  Area  (m*2) 

5000 

10 

Start  Hour 

Start  Minute  q  Start  Second  q 

Solve  Using  Numerical  Simulation  Model 

Simulation  Run  Time  (hrs)  24 

Solve  Using  Approximation  Model 

Figure  4.16.  Graphical  User  Interface  Used  for  the  Target  Overflight  Calculator 
Results  of  Aero-Assist  Maneuver  Reachability  Simulations 

The  results  of  the  study  into  the  ability  for  an  aeroassisted  maneuver  to  modify 
orbital  elements  demonstrate  that  a  TAV  with  an  aeroassisted  capability  can  dramatically 
offset  cost  in  rendezvous  maneuvers  as  well  as  desired  orbit  insertion  maneuvers.  The 
effect  on  orbit  inclination  and  RAAN  using  an  aeroassisted  maneuver  depend  on  the 
position  of  the  TAV  relative  to  the  Earth  when  the  maneuver  is  performed.  To  study  this 
effect  the  change  in  inclination  and  RAAN  were  measured  for  multiple  initial  velocity 
deboost  amounts  as  well  as  maneuver  start  times.  The  initial  deboost  velocity  was  varied 
from  the  minimum  amount  of  velocity  needed  to  enter  the  sensible  atmosphere  to  the 
amount  of  deboost  velocity  that  would  over-g  the  TAV.  The  maneuver  was  performed  at 
12  different  locations  or  starting  times  throughout  one  TAV  orbit  as  shown  in  Fig.  4.17. 
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Figure  4.17.  Maneuver  Start  Loeations  for  Aeroassisted  Reaehability  Study 
The  resulting  change  in  inclination  and  RAAN  were  plotted  with  their  associated 
velocity  cost  in  three-dimensional  space.  Figure  4.18  shows  the  results  for  a  circular  orbit 
at  an  altitude  of  500  km  with  an  inclination  of  28.52°.  The  inclination  of  28.52°  was 
chosen  because  it  is  the  latitude  of  Cape  Canaveral  and  therefore  the  lowest  inclination 
achievable  directly  from  a  launch  from  that  location.  Figure  4.19  is  a  three-dimensional 
surface  plot  created  by  interpolating  the  data  shown  in  Fig.  4.18. 
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Figure  4.18.  Simulation  Data  Point  Cost  of  Inclination  and  RAAN  change  via  an 
Aeroassisted  Maneuver  Performed  from  a  500  km  Circular  Orbit  with  28.52°  Inclination 
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Figure  4.19.  3-Dimensional  Surface  of  Velocity  Cost  for  an  Inclination  and  RAAN 
change  via  an  Aeroassisted  Maneuver  Performed  from  a  500  km  Circular  Orbit  with 

28.52°  Inclination 
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The  surface  is  approximately  a  bowl  with  the  exception  that  the  inclination  cannot 
change  in  the  negative  direction  more  than  the  original  orbit  inclination  (28.52°)  as  this 
would  produce  a  negative  inclination.  Inclination  is  always  positive  and  is  defined  from 
0  <  i  <  180°.  Any  inclination  less  than  zero  is  actually  a  positive  inclination  with  the 
ascending  node  becoming  the  descending  node.  Many  interesting  facts  can  be  gleamed 
from  an  analysis  of  Fig.  4.19.  For  a  given  orbit  there  exists  a  singular  velocity  and 
maneuver  start  time  that  correspond  with  a  given  inclination,  RAAN  change  pair.  In 
other  words,  if  an  inclination  change  of  10°  and  a  RAAN  change  of  -20°  is  desired,  the 
maneuver  must  be  done  at  a  certain  time,  and  has  a  particular  velocity  change  cost.  The 
range  of  orbital  parameter  change  is  quite  extensive  for  a  single  skip  maneuver.  This 
range  can  be  better  seen  in  a  top  down  view  of  Fig.  4.19  as  seen  in  Fig.  4.20  and  is  shown 
in  Table  4.1. 

Table  4.1;  Reachability  from  500  km  Circular  28.52°  Inclined  Orbit 


Maximum 
Change  (°) 

Decayed 
Altitude  Re- 

Circularization 
AV  (km/s) 

Original 
Altitude  Re- 

Circularization 
AV  (km/s) 

Max 

Deceleration 

(g's) 

Perigee 

Altitude 

(km) 

( + )  Inclination 

46.7 

1.45 

1.84 

10.3 

53.5 

( - )  Inclination 

-25.2 

0.67 

0.93 

4.1 

60.5 

{ + ) RAAN 

139.6 

1.26 

1.5 

10.6 

53.3 

{ - ) RAAN 

-139 

1.23 

1.47 

10.2 

53.6 
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Figure  4.20.  Top-Down  Contour  View  of  Veloeity  Cost  for  Inelination  and  RAAN 
Change  using  an  Aeroassisted  Maneuver 

Aeroassisted  maneuvers  have  the  potential  to  dramatically  offset  costs  of 
achieving  a  desired  orbit.  To  demonstrate  this  cost  savings  the  velocity  change  of 
inclination  and  RAAN  change  were  calculated  using  traditional  plane  change  maneuvers. 
A  process  for  calculating  the  velocity  change  via  a  combined  plane  change  maneuver  is 
outlined  in  Fundamentals  of  Astrodynamics  and  Applications,  by  David  Vallado.  The 
process  is  simplified  if  the  initial  orbit  is  circular  as  the  location  of  the  maneuver  will 
have  no  effect  on  overall  cost  because  the  starting  velocity  is  a  constant.  First  the  angle, 
0  is  found  using  Eq.  (4.17),  and  the  maneuver  velocity  cost  is  found  using  Eq.  (4.18). 


cos(0)  =  —  cos(ii)  cos(7r  —  £2)  +  sin(ii)  sin(7r  —  £2)  cos  (Afl) 


(4.17) 
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(4.18) 


Ay  =  ZV^sin 

This  traditional  method  velocity  cost  is  plotted  along  with  the  velocity  cost  for  the 
aeroassisted  maneuver  in  Fig.  4.21  using  the  same  color  legend  in  order  to  better  compare 
the  two.  It  is  clear  that  an  aeroassisted  maneuver  can  significantly  reduce  the  cost  of 
orbit  insertion.  For  example,  if  an  equatorial  orbit  were  desired,  a  satellite  launched  from 
Cape  Canaveral  would  have  to  perform  a  plane  change,  which  at  500  km  would  cost  3.75 
km/s  of  velocity  change  using  a  simple  plane  change.  The  same  change  in  inclination  via 
an  aeroassisted  maneuver  would  cost  roughly  0.94  km/s,  representing  a  75%  decrease  in 
velocity  cost. 


Change  in  RAAN  (degs) 


Change  In  Inclination  (degs) 


Figure  4.21.  Comparison  of  Cost  for  Orbit  Change  using  an  Aeroassisted  Maneuver  with 

Traditional  Methods 
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The  velocity  cost  of  changing  orbital  parameters  using  an  aeroassisted  maneuver 
varies  with  initial  orbit  inclination.  The  variation  of  reachability  for  a  change  in  initial 
orbit  inclination  is  shown  in  Fig.  4.22.  As  the  inclination  of  the  initial  orbit  increases  the 
surface  becomes  more  conical  because  the  negative  inclination  change  doesn’t  run  into 
the  positive  inclination  restraint.  The  cost  for  a  change  in  orbit  inclination  is 
approximately  the  same  for  all  initial  inclination  cases.  The  non-symettry  of  AV  cost 
with  north  to  south  inclination  change  is  due  to  the  larger  rotation  speed  of  the  earth  near 
the  equator. 
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Fig.  4.22.  AV  Cost  for  a  Change  in  Inclination  and  RAAN  for  Varied  Initial  Orbit 
Inclination;  Initial  Alt  =  500  km,  Bank  Angle  =  80° 
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Perigee  Altitude 

It  is  beneficial  to  see  the  change  in  inclination  and  RAAN  as  a  function  of  perigee 
altitude  rather  than  AV  since  it  permits  mission  planners  to  know  the  perigee  altitude  of 
the  decayed  orbit  in  order  to  achieve  a  certain  orbital  change.  Figure  4.23  shows  the  trend 
for  an  inclination  of  55°  with  a  80°  bank  and  starting  altitude  of  500km.  The  lowest 
perigee  altitude  without  over  g-loading  the  TAV  is  approximately  54  km. 
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Figure  4.23.  Pergiee  Altitude  for  Desired  Orbital  Change  Using  an  Aeroassisted 
Maneuver  from  an  Initial  Orbit  of;  Alt  =  500  km,  Inclination  =  55°,  Bank  Angle  =  80° 

Deceleration 

The  amount  of  deceleration  on  the  TAV  is  a  linear  function  of  the  initial  deboost 
velocity  but  changes  with  overall  velocity  based  on  where  the  maneuver  was  performed 
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and  what  direction  of  bank  (Fig  4.24).  For  the  worst  case  scenario,  a  final  original  re¬ 
circularization  velocity  under  1.8  km/s  will  always  keep  the  g-loading  under  10  g’s.  The 
g-loading  limit  drives  the  limiting  condition  for  Eq.  (4.1 1)  and  (4.13)  where  all  solutions 
with  a  calculated  AV  >1.8  km/s  are  thrown  out  on  the  basis  of  over  g-loading  the  TAV. 
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Figure  4.24.  Velocity  Change  Required  to  Re-Circularize  at  the  Original  Orbit  Altitude 

with  the  Associated  Deceleration 

Investigative  Questions  Answered/  Summary 

An  aeroassisted  maneuver  can  be  used  to  overfly  a  ground  target  when  the  arrival 
time  of  the  phasing  solution  is  not  sufficient  and  the  cost  of  the  aeroassisted  maneuver  is 
acceptable.  The  cost  and  timing  of  the  said  maneuver  can  be  calculated  using  Eqs.  4.11 
and  4.13.  Many  orbits  are  reachable  from  a  single  orbit  using  an  aeroassisted  maneuver 
and  can  be  used  to  replace  traditional  methods  with  significant  cost  savings. 
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V.  Conclusions  and  Recommendations 


Chapter  Overview 

The  following  chapter  makes  an  effort  to  provide  a  clear  and  concise  overview  of 
the  conclusions  formulated  throughout  the  study,  and  its  significance.  Recommendations 
for  future  research  are  thoughtfully  given  along  with  supporting  rationale. 

Conclusions  of  Research 

The  overflight  simulation  program  successfully  found  both  the  time  of  arrival  and 
velocity  cost  for  in-plane  phasing  maneuvers,  inclination  plane  change  maneuvers,  and 
aeroassisted  maneuvers.  Data  gathered  using  the  simulation  program  was  used  to 
develop  a  model  for  calculating  the  timing  and  velocity  cost  to  successfully  overfly  any 
ground  target  from  multiple  starting  circular  orbits  using  all  three  type  of  maneuvers 
mentioned  above.  These  models  were  used  in  the  creation  of  a  ‘Target  Overflight 
Calculator’  which  can  be  used  by  system  users  and  researchers  to  gain  a  rapid  estimation 
of  all  possible  overflights,  with  their  associated  maneuver,  arrival  time,  and  AV  cost.  The 
reachability  simulation  program  successfully  predicted  the  ability  of  the  aeroassisted 
maneuver  to  change  the  orbital  parameters  of  any  given  starting  orbit.  The  change  in 
orbital  parameters  is  a  function  of  both  the  location  where  the  aeroassisted  maneuver  is 
performed  and  the  initial  velocity  descent  into  the  atmosphere. 

Significance  of  Research 

Aeroassisted  maneuvers  offer  a  promising  AV  cost  saving  alternative  to 
traditional  methods  for  both  overflying  a  ground  target  as  well  as  changing  a  given  orbit 
to  a  different  desired  orbit,  including  initial  orbit  insertion.  Aeroassisted  maneuvers 
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offer  5  to  8  more  overflight  solutions  per  day  than  do  planar  maneuvers  while  requiring 
75%-90%  less  AV  than  exo-atmospherie  plane  change  maneuvers.  Results  of  the 
reachability  study  show  a  75%  decrease  in  AV  over  traditional  exo-atmospherie 
maneuver  with  a  single  skip  maneuver  enabling  a  satellite  to  change  its  orbits  inclination 
and  RAAN  up  to  ;The  results  of  the  study  demonstrate  the  need  for  continued  research  in 
the  development  of  trans-atmospheric  vehicles. 

Recommendations  for  Future  Research 

Although  fulfilling  the  research  objectives,  the  preceding  research  represents  a 
fraction  of  the  potential  analysis  in  the  study  of  aeroassisted  maneuvers.  Consequently, 
the  following  provides  and  outline  of  recommended  future  research. 

•  Effect  of  Bank  Angle  on  Successful  Overflight  Timing  and  Cost: 
Determine  aeroassisted  maneuver  reachability  by  varying  the  bank  angle 
and  identifying  the  resulting  change  it  timing  and  AV  costs. 

•  Vary  Altitude  of  Initial  Orbit:  Repeat  study  with  various  starting  initial 
orbit  altitudes  in  order  to  determine  the  approximation  equations  as 
function  of  initial  orbital  altitude. 

•  Improve  the  Simple  Plane  Change  and  Aeroassisted  Timing  Solution: 
The  main  source  of  error  in  the  developed  model  for  timing  and  cost  of 
successful  overflights  arises  from  error  in  the  timing  model.  This  model 
should  be  improved  by  determining  an  offset  for  the  timing  solution  of 
each  overflight  based  on  the  location  of  the  original  groundtrack  in 
relation  to  the  target  location. 
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•  Improve  the  velocity  cost  model  for  the  aeroassisted  maneuver:  A 
Fourier  series  with  multiple  eoefficients  can  be  used  to  find  a  function  that 
more  accurately  reflects  that  data  found  from  the  simulation  program, 
particularly  for  targets  close  to  the  equator. 

•  Study  multiple  skip  maneuvers.  Multiple  skips  maneuvers  are  possible 
and  have  the  potential  of  decreasing  the  cost  of  orbit  modification.  The 
structure  of  the  simulation  program  can  be  easily  modified  to  analyze 
multiple  skip  maneuvers,  thus  enabling  the  determination  of  the  optimal 
number  of  skips  for  a  desired  change  in  orbit. 
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Appendix  A:  Nomenclature,  Notation,  and  Units  of  Measure 

The  following  list  of  symbols  is  alphabetical:  Lowercase,  then  uppercase;  Latin, 
then  Greek.  Due  to  the  magnitude  of  distances  associated  with  astrodynamics  and  re¬ 
entry  analysis,  all  of  the  following  symbols  containing  the  base  unit  of  measure  of  meters 
(m)  are  converted  to  kilometers  (km).  For  the  symbols  related  to  planetary  equatorial 
radius  and  rotation  rate,  the  notation  subscript  (  ■  )  indicates  an  unspecified  planet,  while 


for  X  and  A  the  same  notation  indicates  an  unspecified  base  unit  of  measure. 


Latin  Symbol 

Definition 

Base  Unit  of  Measure 

a 

Orbital  semi-major  axis 

m 

^decel 

Total  deceleration 

m-s-2 

9 

Gravitational  acceleration 

m-s-2 

h 

Altitude 

m 

i 

Inclination  angle 

rad 

m 

Vehicle  mass 

kg 

'V 

Geocentric  radial  distance  from  planet  center 

m 

1 

of  mass  to  vehicle 

t 

General  time 

s 

Cd 

Coefficient  of  drag 

unitless 

Cl 

Coefficient  of  lift 

unitless 

D 

Drag  force 

kg  ■  m  ■ 

L 

Lift  force 

kg  ■  m  ■ 

orbits 

Number  of  Orbits 

variable 

P 

Keplerian  orbital  period 

s 

Q 

Stagnation  Heat  Flux 

BTU(ft^  s)'^ 

RMS 

Root  mean  square 

unitless 

S 

Planform  area 

m^ 

V 

Velocity 

m  ■ 

Greek  Symbol 

Definition 

Base  Unit  of  Measure 

P 

Atmospheric  scale  height 

m-i 

Y 

Flight-path  angle 

rad 

9 

Longitude 

rad 

9 

Gravitational  parameter 

3  -2 

m  ■  s 

V 

True  Anamoly 

rad 
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p 

Atmospheric  density 

kg-m 

a 

Bank  angle 

rad 

(p 

Latitude 

rad 

Heading  angle 

rad 

(jj 

Argument  of  Perigee 

rad 

Q 

Planetary  rotation  rate 

Right  Ascension  of  the 
Ascending  Node 

rad  ■  s 

rad 

A 

Change  in  value,  i.e.  AP 

(■) 

Symbol  Scripting 

Definition 

( 

^gd 

Geodetic  value 

( 

)i 

Initial  conditions 

( 

)r 

Component  in  radial  direction 

( 

)s 

Stagnation  value 

( 

)v 

Component  in  velocity  direction 

( 

)w 

Conditions  at  vehicle  surface 

( 

)l 

Component  in  lift  direction 

( 

)(j) 

Component  in  transverse  direction 

) 

Measured  with  respect  to  an  inertial  frame 

) 

Measured  with  respect  to  a  rotating  frame 

( 

)© 

Conditions  for  the  Earth 
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Appendix  B:  Test  Matrices 


Table  B.l  Overflight  Simulation  Test  Matrix 


Initial  Orbit 

Test# 

Run  # 

tgtiat 

tgtion 

a 

e 

i 

0) 

n 

V 

Bank 

1 

0.5 

-90 

6878 

0 

45 

0 

-24 

0 

80 

2 

0.5 

-90 

6878 

0 

45 

0 

-21.6 

0 

80 

3 

0.5 

-90 

6878 

0 

45 

0 

-19.2 

0 

80 

4 

0.5 

-90 

6878 

0 

45 

0 

-16.8 

0 

80 

5 

0.5 

-90 

6878 

0 

45 

0 

-14.4 

0 

80 

6 

0.5 

-90 

6878 

0 

45 

0 

-12 

0 

80 

7 

0.5 

-90 

6878 

0 

45 

0 

-9.6 

0 

80 

8 

0.5 

-90 

6878 

0 

45 

0 

-7.2 

0 

80 

9 

0.5 

-90 

6878 

0 

45 

0 

-4.8 

0 

80 

10 

0.5 

-90 

6878 

0 

45 

0 

-2.4 

0 

80 

1 

11 

0.5 

-90 

6878 

0 

45 

0 

0 

0 

80 

12 

0.5 

-90 

6878 

0 

45 

0 

2.4 

0 

80 

13 

0.5 

-90 

6878 

0 

45 

0 

4.8 

0 

80 

14 

0.5 

-90 

6878 

0 

45 

0 

7.2 

0 

80 

15 

0.5 

-90 

6878 

0 

45 

0 

9.6 

0 

80 

16 

0.5 

-90 

6878 

0 

45 

0 

12 

0 

80 

17 

0.5 

-90 

6878 

0 

45 

0 

14.4 

0 

80 

18 

0.5 

-90 

6878 

0 

45 

0 

16.8 

0 

80 

19 

0.5 

-90 

6878 

0 

45 

0 

19.2 

0 

80 

20 

0.5 

-90 

6878 

0 

45 

0 

21.6 

0 

80 

21 

0.5 

-90 

6878 

0 

45 

0 

24 

0 

80 

89 


Initial  Orbit 

Test# 

Run  # 

tgtiat 

tgtion 

a 

e 

i 

b) 

0 

V 

Bank 

2 

1 

15 

-90 

6878 

0 

45 

0 

-24 

0 

80 

2 

15 

-90 

6878 

0 

45 

0 

-21.6 

0 

80 

3 

15 

-90 

6878 

0 

45 

0 

-19.2 

0 

80 

4 

15 

-90 

6878 

0 

45 

0 

-16.8 

0 

80 

5 

15 

-90 

6878 

0 

45 

0 

-14.4 

0 

80 

6 

15 

-90 

6878 

0 

45 

0 

-12 

0 

80 

7 

15 

-90 

6878 

0 

45 

0 

-9.6 

0 

80 

8 

15 

-90 

6878 

0 

45 

0 

-7.2 

0 

80 

9 

15 

-90 

6878 

0 

45 

0 

-4.8 

0 

80 

10 

15 

-90 

6878 

0 

45 

0 

-2.4 

0 

80 

11 

15 

-90 

6878 

0 

45 

0 

0 

0 

80 

12 

15 

-90 

6878 

0 

45 

0 

2.4 

0 

80 

13 

15 

-90 

6878 

0 

45 

0 

4.8 

0 

80 

14 

15 

-90 

6878 

0 

45 

0 

7.2 

0 

80 

15 

15 

-90 

6878 

0 

45 

0 

9.6 

0 

80 

16 

15 

-90 

6878 

0 

45 

0 

12 

0 

80 

17 

15 

-90 

6878 

0 

45 

0 

14.4 

0 

80 

18 

15 

-90 

6878 

0 

45 

0 

16.8 

0 

80 

19 

15 

-90 

6878 

0 

45 

0 

19.2 

0 

80 

20 

15 

-90 

6878 

0 

45 

0 

21.6 

0 

80 

21 

15 

-90 

6878 

0 

45 

0 

24 

0 

80 

1 

15 

-90 

6878 

0 

45 

0 

-24 

0 

80 

90 


Initial  Orbit 

Test# 

Run  # 

tgtiat 

tgtion 

a 

e 

i 

b) 

0 

V 

Bank 

1 

30 

-90 

6878 

0 

45 

0 

-24 

0 

80 

2 

30 

-90 

6878 

0 

45 

0 

-21.6 

0 

80 

3 

30 

-90 

6878 

0 

45 

0 

-19.2 

0 

80 

4 

30 

-90 

6878 

0 

45 

0 

-16.8 

0 

80 

5 

30 

-90 

6878 

0 

45 

0 

-14.4 

0 

80 

6 

30 

-90 

6878 

0 

45 

0 

-12 

0 

80 

7 

30 

-90 

6878 

0 

45 

0 

-9.6 

0 

80 

8 

30 

-90 

6878 

0 

45 

0 

-7.2 

0 

80 

9 

30 

-90 

6878 

0 

45 

0 

-4.8 

0 

80 

10 

30 

-90 

6878 

0 

45 

0 

-2.4 

0 

80 

3 

11 

30 

-90 

6878 

0 

45 

0 

0 

0 

80 

12 

30 

-90 

6878 

0 

45 

0 

2.4 

0 

80 

13 

30 

-90 

6878 

0 

45 

0 

4.8 

0 

80 

14 

30 

-90 

6878 

0 

45 

0 

7.2 

0 

80 

15 

30 

-90 

6878 

0 

45 

0 

9.6 

0 

80 

16 

30 

-90 

6878 

0 

45 

0 

12 

0 

80 

17 

30 

-90 

6878 

0 

45 

0 

14.4 

0 

80 

18 

30 

-90 

6878 

0 

45 

0 

16.8 

0 

80 

19 

30 

-90 

6878 

0 

45 

0 

19.2 

0 

80 

20 

30 

-90 

6878 

0 

45 

0 

21.6 

0 

80 

21 

30 

-90 

6878 

0 

45 

0 

24 

0 

80 

1 

30 

-90 

6878 

0 

45 

0 

-24 

0 

80 

91 


Initial  Orbit 

Test# 

Run  # 

tgtiat 

tgtion 

a 

e 

i 

b) 

0 

V 

Bank 

4 

1 

45 

-90 

6878 

0 

45 

0 

-24 

0 

80 

2 

45 

-90 

6878 

0 

45 

0 

-21.6 

0 

80 

3 

45 

-90 

6878 

0 

45 

0 

-19.2 

0 

80 

4 

45 

-90 

6878 

0 

45 

0 

-16.8 

0 

80 

5 

45 

-90 

6878 

0 

45 

0 

-14.4 

0 

80 

6 

45 

-90 

6878 

0 

45 

0 

-12 

0 

80 

7 

45 

-90 

6878 

0 

45 

0 

-9.6 

0 

80 

8 

45 

-90 

6878 

0 

45 

0 

-7.2 

0 

80 

9 

45 

-90 

6878 

0 

45 

0 

-4.8 

0 

80 

10 

45 

-90 

6878 

0 

45 

0 

-2.4 

0 

80 

11 

45 

-90 

6878 

0 

45 

0 

0 

0 

80 

12 

45 

-90 

6878 

0 

45 

0 

2.4 

0 

80 

13 

45 

-90 

6878 

0 

45 

0 

4.8 

0 

80 

14 

45 

-90 

6878 

0 

45 

0 

7.2 

0 

80 

15 

45 

-90 

6878 

0 

45 

0 

9.6 

0 

80 

16 

45 

-90 

6878 

0 

45 

0 

12 

0 

80 

17 

45 

-90 

6878 

0 

45 

0 

14.4 

0 

80 

18 

45 

-90 

6878 

0 

45 

0 

16.8 

0 

80 

19 

45 

-90 

6878 

0 

45 

0 

19.2 

0 

80 

20 

45 

-90 

6878 

0 

45 

0 

21.6 

0 

80 

21 

45 

-90 

6878 

0 

45 

0 

24 

0 

80 

1 

45 

-90 

6878 

0 

45 

0 

-24 

0 

80 

92 


Initial  Orbit 

Test# 

Run  # 

tgtiat 

tgtion 

a 

e 

i 

0) 

Q 

V 

Bank 

5 

1 

-60 

40 

6878 

0 

45 

0 

0 

0 

80 

2 

-59 

40 

6878 

0 

45 

0 

0 

0 

80 

3 

-58 

40 

6878 

0 

45 

0 

0 

0 

80 

4 

-57 

40 

6878 

0 

45 

0 

0 

0 

80 

5 

-56 

40 

6878 

0 

45 

0 

0 

0 

80 

6 

-55 

40 

6878 

0 

45 

0 

0 

0 

80 

7 

-54 

40 

6878 

0 

45 

0 

0 

0 

80 

8 

-53 

40 

6878 

0 

45 

0 

0 

0 

80 

9 

-52 

40 

6878 

0 

45 

0 

0 

0 

80 

10 

-51 

40 

6878 

0 

45 

0 

0 

0 

80 

11 

-50 

40 

6878 

0 

45 

0 

0 

0 

80 

12 

-49 

40 

6878 

0 

45 

0 

0 

0 

80 

13 

-48 

40 

6878 

0 

45 

0 

0 

0 

80 

14 

-47 

40 

6878 

0 

45 

0 

0 

0 

80 

15 

-46 

40 

6878 

0 

45 

0 

0 

0 

80 

16 

-45 

40 

6878 

0 

45 

0 

0 

0 

80 

17 

-44 

40 

6878 

0 

45 

0 

0 

0 

80 

18 

-43 

40 

6878 

0 

45 

0 

0 

0 

80 

19 

-42 

40 

6878 

0 

45 

0 

0 

0 

80 

20 

-41 

40 

6878 

0 

45 

0 

0 

0 

80 

21 

-40 

40 

6878 

0 

45 

0 

0 

0 

80 

22 

-39 

40 

6878 

0 

45 

0 

0 

0 

80 

93 


23 

-38 

40 

6878 

0 

45 

0 

0 

0 

80 

24 

-37 

40 

6878 

0 

45 

0 

0 

0 

80 

25 

-36 

40 

6878 

0 

45 

0 

0 

0 

80 

26 

-35 

40 

6878 

0 

45 

0 

0 

0 

80 

27 

-34 

40 

6878 

0 

45 

0 

0 

0 

80 

28 

-33 

40 

6878 

0 

45 

0 

0 

0 

80 

29 

-32 

40 

6878 

0 

45 

0 

0 

0 

80 

30 

-31 

40 

6878 

0 

45 

0 

0 

0 

80 

31 

-30 

40 

6878 

0 

45 

0 

0 

0 

80 

32 

-29 

40 

6878 

0 

45 

0 

0 

0 

80 

33 

-28 

40 

6878 

0 

45 

0 

0 

0 

80 

34 

-27 

40 

6878 
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80 

35 
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37 

-24 

40 

6878 
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45 

0 

0 

0 

80 

38 

-23 

40 

6878 

0 

45 

0 

0 

0 

80 

39 

-22 

40 

6878 

0 

45 

0 

0 

0 

80 

40 

-21 

40 

6878 

0 

45 

0 

0 

0 

80 

41 

-20 

40 

6878 

0 

45 

0 

0 

0 

80 

42 

-19 

40 

6878 

0 

45 

0 

0 

0 

80 

43 

-18 

40 

6878 

0 

45 

0 

0 

0 

80 

44 

-17 

40 

6878 

0 

45 

0 

0 

0 

80 

45 

-16 

40 

6878 

0 

45 

0 

0 

0 

80 

46 

-15 

40 

6878 

0 

45 

0 

0 

0 

80 

47 

-14 

40 

6878 

0 

45 

0 

0 

0 

80 

94 


48 

-13 

40 

6878 

0 

45 

0 

0 

0 

80 

49 

-12 

40 

6878 
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40 
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40 
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0 
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80 
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45 
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0 

55 

0 

0 

0 

80 

57 

45 
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0 

56 

0 

0 

0 

80 

58 

45 
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0 

57 

0 

0 

0 

80 

59 

45 

-90 

6878 

0 

58 

0 

0 

0 

80 

60 

45 

-90 

6878 

0 

59 

0 

0 

0 

80 

61 

45 

-90 

6878 

0 

60 

0 

0 

0 

80 

62 

45 
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6878 

0 

61 

0 
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80 
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45 
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0 

0 
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80 

64 

45 
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63 
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80 
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45 
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64 

0 

0 
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80 

66 

45 

-90 
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0 

65 

0 

0 

0 

80 

67 

45 
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0 

66 

0 

0 

0 

80 

68 

45 

-90 

6878 

0 

67 

0 

0 

0 

80 

69 

45 

-90 

6878 

0 

68 

0 

0 

0 

80 

70 

45 
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6878 

0 

69 

0 

0 

0 

80 

71 

45 

-90 

6878 

0 

70 

0 

0 

0 

80 

72 

45 

-90 

6878 

0 

71 

0 

0 

0 

80 

105 


73 

45 

-90 

6878 

0 

72 

0 

0 

0 

80 

74 

45 

-90 

6878 

0 

73 
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0 

0 

80 

75 

45 

-90 

6878 

0 

74 
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0 

0 

80 

76 

45 

-90 

6878 

0 

75 

0 

0 

0 

80 

Initial  Orbit 

Test# 

Run  # 

tgtiat 

tgtion 

a 

e 

i 

0) 

Q 

V 

Bank 

8 

1 

35 

-180 

6878 

0 

45 

0 

0 

0 

80 

2 

35 

-175 

6878 

0 

1 

0 

0 

0 

80 

3 

35 

-170 

6878 

0 

2 

0 

0 

0 

80 

4 

35 

-165 

6878 

0 

3 

0 

0 

0 

80 

5 

35 

-160 

6878 

0 

4 

0 

0 

0 

80 

6 

35 

-155 

6878 

0 

5 

0 

0 

0 

80 

7 

35 

-150 

6878 

0 

6 

0 

0 

0 

80 

8 

35 

-145 

6878 

0 

7 

0 

0 

0 

80 

9 

35 

-140 

6878 

0 

8 

0 

0 

0 

80 

10 

35 

-135 

6878 

0 

9 

0 

0 

0 

80 

11 

35 

-130 

6878 

0 

10 

0 

0 

0 

80 

12 

35 

-125 

6878 

0 

11 

0 

0 

0 

80 

13 

35 

-120 

6878 

0 

12 

0 

0 

0 

80 

14 

35 

-115 

6878 

0 

13 

0 

0 

0 

80 

15 

35 

-110 

6878 

0 

14 

0 

0 

0 

80 

16 

35 

-105 

6878 

0 

15 

0 

0 

0 

80 

17 

35 

-100 

6878 

0 

16 

0 

0 

0 

80 

18 

35 

-95 

6878 

0 

17 

0 

0 

0 

80 

106 


19 

35 

-90 

6878 

0 

18 

0 

0 

0 

80 

20 

35 

-85 

6878 

0 

19 

0 

0 

0 

80 

21 

35 

-80 

6878 

0 

20 

0 

0 

0 

80 

22 

35 

-75 

6878 

0 

21 

0 

0 

0 

80 

23 

35 

-70 

6878 

0 

22 

0 

0 

0 

80 

24 

35 

-65 

6878 

0 

23 

0 

0 

0 

80 

25 

35 

-60 

6878 

0 

24 

0 

0 

0 

80 

26 

35 

-55 

6878 

0 

25 

0 

0 

0 

80 

27 

35 

-50 

6878 

0 

26 

0 

0 

0 

80 

28 

35 

-45 

6878 

0 

27 

0 

0 

0 

80 

29 

35 

-40 

6878 

0 

28 

0 

0 

0 

80 

30 

35 

-35 

6878 

0 

29 

0 

0 

0 

80 

31 

35 

-30 

6878 

0 

30 

0 

0 

0 

80 

32 

35 

-25 

6878 

0 

31 

0 

0 

0 

80 

33 

35 

-20 

6878 

0 

32 

0 

0 

0 

80 

34 

35 

-15 

6878 

0 

33 

0 

0 

0 

80 

35 

35 

-10 

6878 

0 

34 

0 

0 

0 

80 

36 

35 

-5 

6878 

0 

35 

0 

0 

0 

80 

37 

35 

0 

6878 

0 

36 

0 

0 

0 

80 

38 

35 

5 

6878 

0 

37 

0 

0 

0 

80 

39 

35 

10 

6878 

0 

38 

0 

0 

0 

80 

40 

35 

15 

6878 

0 

39 

0 

0 

0 

80 

41 

35 

20 

6878 

0 

40 

0 

0 

0 

80 

42 

35 

25 

6878 

0 

41 

0 

0 

0 

80 

43 

35 

30 

6878 

0 

42 

0 

0 

0 

80 

107 


44 

35 

35 

6878 

0 

43 

0 

0 

0 

80 

45 

35 

40 

6878 

0 

44 

0 

0 

0 

80 

46 

35 

45 

6878 

0 

45 

0 

0 

0 

80 

47 

35 

50 

6878 

0 

46 

0 

0 

0 

80 

48 

35 

55 

6878 

0 

47 

0 

0 

0 

80 

49 

35 

60 

6878 

0 

48 

0 

0 

0 

80 

50 

35 

65 

6878 

0 

49 

0 

0 

0 

80 

51 

35 

70 

6878 

0 

50 

0 

0 

0 

80 

52 

35 

75 

6878 

0 

51 

0 

0 

0 

80 

53 

35 

80 

6878 

0 

52 

0 

0 

0 

80 

54 

35 

85 

6878 

0 

53 

0 

0 

0 

80 

55 

35 

90 

6878 

0 

54 

0 

0 

0 

80 

56 

35 

95 

6878 

0 

55 

0 

0 

0 

80 

57 

35 

100 

6878 

0 

56 

0 

0 

0 

80 

58 

35 

105 

6878 

0 

57 

0 

0 

0 

80 

59 

35 

110 

6878 

0 

58 

0 

0 

0 

80 

60 

35 

115 

6878 

0 

59 

0 

0 

0 

80 

61 

35 

120 

6878 

0 

60 

0 

0 

0 

80 

62 

35 

125 

6878 

0 

61 

0 

0 

0 

80 

63 

35 

130 

6878 

0 

62 

0 

0 

0 

80 

64 

35 

135 

6878 

0 

63 

0 

0 

0 

80 

65 

35 

140 

6878 

0 

64 

0 

0 

0 

80 

66 

35 

145 

6878 

0 

65 

0 

0 

0 

80 

67 

35 

150 

6878 

0 

66 

0 

0 

0 

80 

68 

35 

155 

6878 

0 

67 

0 

0 

0 

80 
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69 

35 

160 

6878 

0 

68 

0 

0 

0 

80 

70 

35 

165 

6878 

0 

69 

0 

0 

0 

80 

71 

35 

170 

6878 

0 

70 

0 

0 

0 

80 

72 

35 

175 

6878 

0 

71 

0 

0 

0 

80 

73 

35 

180 

6878 

0 

72 

0 

0 

0 

80 

Table  B,2,  Reachability  Test  Matrix 


Test# 

Inclination 

Altitude  (km) 

Bank  Angle 

1 

45 

500 

80 

2 

28.72 

500 

80 

3 

35 

500 

80 

4 

55 

500 

80 

5 

45 

250 

80 

6 

45 

750 

80 

7 

45 

1000 

80 

8 

45 

500 

75 

9 

45 

500 

85 

10 

45 

500 

90 
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Appendix  C:  MATLAB®  Code  for  Overflight  Simulation  Dynamics  Model  & 

Reachability  Model 


Table  C.l  Description  of  MATLAB  Functions  for  Overflight  Simulation 


File  Name 

File  Description 

Optimal_Overfly_Manuevering.m 

Main  Overflight  Simulation  Dynamics  Model  Program 

Optimal Overfly lnputs.m 

Input  File  for  Main  Overflight  Program 

OrbEI toPlanetFix.m 

Converts  Orbital  Element  Input  to  Inertial  States 

lnertial2Rel States.m 

Converts  Inertial  States  to  Relative  States 

deltajongitude.m 

Calculate  the  longitude  between  to  points  on  the  Earth 

dJat_atJon_func.m 

Finds  the  latitude  difference  from  the  target  at  each 
target  longitude  crossing 

dJon_atJat_func.m 

Finds  the  longitude  difference  from  the  target  at  each 
target  latitude  crossing 

equations_of_motion_ODE45.m 

Equation  of  Motion  Function  to  be  used  in  Conjuction 
with  MATLAB  ODE  45  Function 

AtmosModel.m 

Atmospheric  Model;  finds  the  density  for  a  given  altitude 

bank_section.m 

Fleuristics  for  determing  the  needed  bank  direction  and 
maneuver  section 

states_atJonpass.m 

Finds  the  time  and  states  at  the  target  longitude 
crossings 

states atjatpass.m 

Finds  the  time  and  states  at  the  target  latitude  crossings 

WGS84Constants 

Defines  WGS  84  Constant  Values 

Overfly gui.m 

Graphical  User  Interface  for  dV,  TOA  Calculator 

globe plot2.m 

Plots  Groundtrack  of  Original  and  Perturbed  Orbits 

plotstates.m 

Plots  all  6  states  vs  time  for  a  given  orbit 

TOA_vs_dV_all.m 

Plots  the  Time  of  Arrival  vs.  the  dV  for  all  maneuver 
types 

Table  C.2.  Description  of  MATLAB  Function  for  Reachability  Simulation 


File  Name 

File  Description 

Reachability.m 

Reachability  Main  Function 

Raan _ lnc_Surface.m 

Plots  Reachbility  Plot 

no 


Table  C.3  Description  of  MATLAB  Functions  Used  in  Curve  Fitting  Process 


File  Name 

File  Description 

fitness. m 

Minimize  Error  function  with  Multiple  Variables 

data sort.m 

Sorts  Data  Created  By  Simulation  Model 

curve_fit_main.m 

Finds  Curve  Fits  for  A,  B,  C  Constants 

Optimal_Overf ly_Manuevering . m 


%%  -  Optimal  Space  Maneuvering  for  Ground  Target  Overfly  Version  1.5 


g, 

o 


Dalton 


Devin 


q, 

0 


2013 


7  Aug 


q, 

0 

%  This  code  calculates  the  optimal  satellite  manuever  from  a  fuel 
%  consumption  and  delta-V  perspective  for  a  given  target,  time  of 
arrival , 

%  and  initial  orbit. 

q, 

0 


g, 

o 

%  Governing  Equations: 

%  -  Three  dimentional  entry  equations  3.35-3.37  &  3.65-3.67  on 

%  p.  42  &  52  of  Hicks  text 

%  -  Variables  are  integrated  in  dimensional  form 

q, 

o 

%  Code  assumes: 

%  -  Rotating  planet 

%  -  Non-thrusting  entry 

%  -  Non-planar  entry  (for  planar,  sigma  set  to  0  or  180  deg) 

q, 

o 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

9-  9-  9-  9- 
0  0  0  0 


clear  all;  clc;  close  all; 


%  Initialize  Variables  for  each  RAAN  run 
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totalcount  =  0; 
test  =  0; 
directory  =  [  ] ; 


%  Sweep  Through  Desired  Variable  (ie  tgtlat,  inclination,  RAAN) 
for  run  =  1:28 


%  Save  data  from  previous  run  before  clearing  data  for  new  sweep 

save ( ' directory .mat '  ,  'directory ' ) 

save ( ' run .mat ' , ' run ' ) 

save ( ' test .mat ' , ' test ' ) 

save ( ' totalcount .mat ' , ' totalcount ' ) 

clear  all; 


%  Declare  Global  Variables 

global  tgtlat  tgtlon  initialorbit  startdate  simtime  vehicle  inc_sign 
global  mu  gO  Dearth  wearth  J2  J3  J4  J6  FlatE  EccE  Beta  rhoO  BR  flagger2 
global  StefBoltz  Boltz  bank  flaggerl  index  bankplot  timer  deltaV  tstart 
global  flagger  acc 


%  Bring  in  constants  and  define  saved  variables  that  were  cleared  above 
bank  =  0; 

Optimal_Overf ly_Inputs ;  %  Loads  User  Defined  Inputs 

WGS84Constants;  %  Loads  Earth  WGS  84  Constants 

test_num  =  232; 
lambda=  le-6; 

D  =  1.15; 

load ( ' directory .mat ' , 'directory ' ) 

load ( ' test .mat ' ) 

load ( ' run .mat ' ) 

load ( ' totalcount . mat ' ) 

tgtlat  =  tgtlat  +  run; 

%initialorbit . i  =  initialorbit . i  +  run; 

%initialorbit . RAAN  =  initialorbit . RAAN  -  26.4  +24/10*run; 


%  Convert  Initial  Orbit  to  inertial  R(km/s),  Lat(rad),  Long(rad), 
V (km/s) , 

%  fpa(rad),  and  heading  angle (rad) 

initial_states  =  OrbEl_to_PlanetFix (initialorbit,  startdate); 

Vp  =  sqrt (2*mu/initial_states ( 1 )  )  ; 


%  Error  message  if  initial  orbit  is  below  the  earth 

starterror  =  []; 

if  initial  states (1)  <  Dearth 
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end 


display (' Initial  state  is  below  the  surface  of  the  earth.') 
starterror  =  1 ; 


%  Convert  initial  parameters  from  inertial  to  planet  relative 
rel_initial_states  =  Inertial2Rel_States ( initial_states ) ; 
p_states  =  rel_initial_states ; 
p_states(4)  =  Vp; 

p_rel_states  =  Inertial2Rel_States (p_states ) ; 

Vp_rel  =  p_rel_states ( 4 )  ; 


--  Propagate  initial  orbit  forward  in  time  -- 


if  isempty ( starterror )  %  Only  perform  if  initial  orbit  is  a  valid 

orbit 

tic 

options  =  odeset ( ' RelTol '  ,  le-6,  ' AbsTol ' , le-6,  ' Events ' , @breakevent) ; 

inc_sign  =  0; 

index  =  1 ; 

timer  =  [  ] ; 

bankplot  =  [  ] ; 

rel_initial_states ( 4 )  =  rel_initial_states ( 4 ) ; 

[time, rel_states]  =  ode45 (@equations_of_motion_ODE45,  ... 

[0  simtime] , rel_initial_states , options) ; 
rel_bankplot  =  bankplot; 
rel_gs  =  acc; 
reltimer  =  timer; 


%  Correct  Longitude  to  be  between  -180  and  180  degrees 
datapoints  =  length (time) ; 
for  i  =  l:datapoints 

if  rel_states ( i ,  2 )  >  pi 

rel_states ( i : end, 2 )  =  -  (pi  -  (rel_states (i rend, 2)  -  pi) )  ; 

elseif  rel_states ( i : end,  2 )  <  -pi 

rel_states ( i : end, 2 )  =  (pi  +  (rel_states (i rend, 2)  +  pi) ) ; 

end 

end 


%  Earth  Intersection  Warning 
if  time (end)  ~=  simtime 

display (' Orbit  intersects  the  earth.') 

end 
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%  Find  the  longitudinal  and  latitudinal  difference  at  each  point 
for  i  =  l:datapoints 

dlon(i)  =  delta_longitude (rad2deg (rel_states (i, 2) )  ,  tgtlon)  ; 

end 

dlat  =  rad2deg (rel_states ( : , 3) )  -  tgtlat; 
lat  =  rel_states ( : , 3 ) ; 

Ion  =  rel_states  ( : , 2 )  ; 

distance  =  acos (sin  (lat)  . *sind (tgtlat)  +  ... 

cos (lat) . *cosd (tgtlat) . *cosd (transpose (dlon) ) ) *Rearth; 
ddist  dt  =  diff (distance) ; 


%  Find  the  lat/long  difference  for  the  closest  point  of  each  pass 
count  =  1; 

for  i  =  2 : datapoints- 1 

if  ddist_dt ( i- 1 )  <0  &&  ddist_dt(i)  >  0 
mindist_index (count)  =  i; 
count  =  count  +  1; 

end 

end 

dlon_miss  =  dlon (mindist_index) ; 
dlat  miss  =  dlat (mindist  index) ; 


for  i  =  l:count-l 

yl  =  rad2deg ( lat (mindist_index ( i )  -  1)); 

y2  =  rad2deg ( lat (mindist_index ( i ) ) ) ; 
y3  =  rad2deg ( lat (mindist_index ( i )  +  1)); 
xl  =  rad2deg ( Ion (mindist_index ( i )  -  1)); 

x2  =  rad2deg ( Ion (mindist_index ( i ) ) ) ; 
x3  =  rad2deg ( Ion (mindist_index ( i )  +  1)); 
ml  =  (y2  -  yl)/(x2  -  xl); 
m2  =  (y3  -  y2)/(x3  -  x2); 

xminl  =  (ml*  (tgtlat  -y2  +  ml*x2)  +  tgtlon) /(I  +  ml''2); 
xmin2  =  (m2*  (tgtlat  -y3  +  m2*x3)  +  tgtlon) /(I  +  m2'^2); 
yminl  =  y2  +  ml* (xminl  -  x2); 
ymin2  =  y3  +  m2* (xmin2  -  x2); 

min_distl  =  sqrt( (tgtlon  -  xminl) ^2  +  (tgtlat  -  yminl) ^2); 
min_dist2  =  sqrt(  (tgtlon  -  xmin2)^2  +  (tgtlat  -  ymin2)''2); 
if  min_distl  <  min_dist2 

min_dist(i)  =  min_distl; 

else 

min_dist(i)  =  min_dist2; 

end 

end 

phase_min_dist  =  min_dist; 
plane_min_dist  =  min_dist; 
skip_min_dist  =  min_dist; 
overflycount  =  0; 
skip_overf lycount  =  0; 


%  Find  the  d-longitude  for  each  target  latitude  passing 
if  abs (tgtlat)  <=  initialorbit . i 
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[dlon_lat,  skiptheta]  =  d_lon_at_lat_func (Ion,  lat,  tgtlon, 
tgtlat) ; 

[dlon_pass_states ,  dlon_pass_time]  =  states_at__pass (rel_states, 
time,  tgtlat) ; 
end 

[dlat_lon,  phi]  =  d_lat_at_lon_func (Ion,  lat,  tgtlon,  tgtlat); 
[pass_states ,  pass_time]  =  states_at_lonpass (rel_states,  time,  tgtlon) 
Vp_rel  =  11; 


%  Find  the  closest  northern,  easter,  southern,  and  western  points  if 
%  tgtlat  <  inclination  otherwise  find  just  the  north  or  souther  points 
if  abs (tgtlat)  <  initialorbit . i 
si  =  0 ; 
ni  =  0; 

for  i  =  1 : length (dlat_lon) 
if  dlat_lon(i)  <  0 
si  =  si  +  1; 

s_points(si)  =  -dlat_lon ( i ) ; 

else 

ni  =  ni  +  1; 

n  points (ni)  =  dlat_lon(i); 

end 

end 

n  point_deg  =  min (n  points); 
s_point_deg  =  min ( s_points ) ; 

n  point  =  acos (sind (tgtlat  +  n_point_deg) *sind (tgtlat)  +  ... 

cosd (tgtlat  +  n_point_deg) *cosd (tgtlat) ) *Rearth; 
s_point  =  acos (sind (tgtlat  -  s_point_deg) *sind (tgtlat)  +  ... 

cosd (tgtlat  -  s_point_deg) *cosd (tgtlat) ) *Rearth; 
n_index  =  f ind (dlat_lon  ==  n_point_deg) ; 
s_index  =  f ind ( -dlat_lon  ==  s  point_deg) ; 
n_time  =  pass  time (n  index) ; 
s_time  =  pass_time ( s_index) ; 
if  abs (tgtlat)  <=  initialorbit . i 
e  i  =  0 ; 
wi  =  0 ; 

for  i  =  1 : length (dlon_lat) 
if  dlon_lat(i)  <  0 
wi  =  wi  +  1 ; 

w_points(wi)  =  -dlon_lat ( i ) ; 

else 

ei  =  ei  +  1; 

e_points(ei)  =  dlon_lat(i); 

end 

end 

e  point_deg  =  min (e  points); 
w  point_deg  =  min (w  points); 

e_point  =  acos (sind (tgtlat) *sind (tgtlat)  +  ... 

cosd (tgtlat) *cosd (tgtlat) *cosd (e_point_deg) ) *Rearth; 
w_point  =  acos (sind (tgtlat) *sind (tgtlat)  +  ... 

cosd (tgtlat) *cosd (tgtlat) *cosd ( -w_point_deg) ) *Rearth; 
e_index  =  f ind (dlon_lat  ==  e_point_deg) ; 
w_index  =  f ind ( -dlon_lat  ==  w_point_deg) ; 
e_time  =  dlon  pass_time (e_index) ; 
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w_time  =  dlon_pass_time (w_index) ; 

else 

e_point  =  0; 
w  point  =  0; 
e_time  =  0; 
w_time  =  0; 

end 

elseif  tgtlat  >  0 
n_point  =  0; 
e_point  =  0; 
w  point  =  0; 
n_time  =  0; 
e_time  =  0; 
w_time  =  0; 
si  =  0 ; 

for  i  =  1 : length (dlat_lon) 
if  dlat_lon(i)  <  0 
si  =  si  +  1; 

s_points(si)  =  -dlat_lon ( i ) ; 

end 

end 

s_point_deg  =  min ( s_points ) ; 

s_point  =  acos (sind (tgtlat  -  s_point_deg) *sind (tgtlat)  +  ... 

cosd (tgtlat  -  s_point_deg) *cosd (tgtlat) ) *Rearth; 
s_index  =  f ind ( -dlat_lon  ==  s_point_deg) ; 
s_time  =  pass_time ( s_index) ; 
elseif  tgtlat  <  0 
s_point  =  0; 
e_point  =  0; 
w_point  =  0; 
s_time  =  0; 
e_time  =  0; 
w_time  =  0; 
n  i  =  0 ; 

for  i  =  1 : length (dlat_lon) 
if  dlat_lon(i)  >  0 
ni  =  ni  t  1 ; 

n  points (ni)  =  dlat_lon ( i ) ; 

end 

end 

n  point_deg  =  min (n  points); 

n_point  =  acos (sind (tgtlat  +  n_point_deg) *sind (tgtlat)  +  ... 

cosd (tgtlat  +  n_point_deg) *cosd (tgtlat) ) *Rearth; 
n_index  =  find(dlat  Ion  ==  n_point_deg) ; 
n_time  =  pass_time (n_index) ; 

end 


%  Find  the  4  section  times  to  be  used  to  correspond  bank  with  the 
correct 

%  direction  in  ground  track  shift 

tlcount  =  0; 

t2count  =  0; 

tScount  =  0; 

t4count  =  0; 
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for  i  =  2 : length (time) 

if  rel_states (i-1, 3)  <  0  &&  rel_states ( i , 3 )  >  0 
tlcount  =  tlcount  +  1; 
tl  (tlcount, 1 )  =  time(i); 
tl (tlcount, 2 )  =  1; 

elseif  rel_states ( i- 1 , 6 )  >  0  &&  rel_states ( i , 6 )  <  0 
t2count  =  t2count  +  1; 
t2  (t2count, 1 )  =  time(i); 
t2 (t2count, 2 )  =  2 ; 

elseif  rel_states ( i- 1 , 3 )  >  0  &&  rel_states ( i , 3 )  <  0 
t3count  =  t3count  +  1; 
t3  (t3count, 1 )  =  time(i); 
t3 (t3count, 2 )  =  3; 

elseif  rel_states ( i- 1 , 6 )  <  0  &&  rel_states ( i , 6 )  >  0 
t4count  =  t4count  +  1; 
t4  (t4count, 1 )  =  time(i); 
t4 (t4count, 2 )  =  4 ; 

end 

end 

tsectionl  =  [tl  ;  t2;  t3;  t4]; 

[tsection2  tindex]  =  sort (tsectionl (:, 1 )) ; 

for  i  =  1 : length (tsectionl ) 

tsection_start ( i , 1 )  =  tsection2(i,l); 

tsection_start ( i , 2 )  =  tsectionl (tindex (i) , 2) ; 

end 

globe_plot (rel_states) 


PHASING  MANEUVER 


if  abs (tgtlat)  <=  initialorbit . i 
for  i  =  1 : length (dlon_lat) 


%  Initialize  loop  variables 

miss_tol  =  . 1 ;  %  distance  tolerance  in  km 

phase_dlon_lat  =  dlon_lat ( i ) ; 

phase_distance (1 : length (distance)  ,  i)  =  distance; 
phase_initial_states ( i , : )  =  rel_initial_states ; 
phase_dv_i  =  0.25; 
k=0; 


while  abs (phase_dlon_lat)  >  miss_tol  % 


%  Algorithm  to  change  the  step  size  of  the  dv  correction 
k  =  k+1; 

if  phase_dlon_lat  >  0 
zeroin ( k)  =  1 ; 

else 

zeroin (k)  =  -1; 
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-zeroin (k-2 


end 

if  k  >  1 

if  zeroin (k)  ==  -zeroin (k-1) 

phase_dv_i  =  phase_dv_i/2 ; 

end 

end 

if  k  >  2 

if  zeroin (k)  ==  zeroin (k-1)  && 

phase_dv_i  =  phase_dv_i/2 ; 

end 

end 


zeroin ( k)  == 


%  Change  initial  velocity  in  order  to  produce  desired 
groundtrack 

if  phase_dlon_lat  >  0; 

phase_initial_states ( i , 4 )  =  phase_initial_states ( i , 4 ) 
+  phase_dv_i; 

else 


phase_initial_states ( i , 4 )  =  phase_initial_states ( i , 4 ) 
-  phase_dv_i; 

end 

phase_V  =  phase_initial_states ( i , 4 ) ; 


%  Calculate  the  flight  profile  using  calculated  initial 
conditions 

index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  []; 

[phase_time_i , phase_states_i ]  = 
ode45 (@equations_of_motion_ODE45, . . . 

[0  simtime] , phase_initial_states (i,  : ) , options) ; 
phase_points  =  length (phase_time_i ) ; 


%  Correct  Longitude  to  be  from  -180  to  180 
for  ii  =  1 : phase_points 

if  phase_states_i ( ii , 2 )  >  pi 

phase_states_i ( ii : end, 2 )  =  -(pi  - 
(phase_states_i ( ii : end,  2 )  -  pi) ) ; 

elseif  phase_states_i ( ii : end, 2 )  <  -pi 
phase_states_i ( ii : end, 2 )  =  (pi  + 
(phase_states_i ( ii : end, 2 )  +  pi) ) ; 

end 

end 

phase_lat_i  =  phase_states_i ( : , 3 ) ; 
phase_lon_i  =  phase_states_i ( : , 2 ) ; 
phase_lat_i (phase_points  +  l : end)  =  [ ]  ; 


%  Calculate  the  lat/long  difference  and  distance  from  the 
groundtrack 
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for  ii  =  Irphase  points 
phase  dlon(ii)  = 

delta_longitude (rad2deg (phase_states_i (ii, 2) ) , tgtlon) ; 
end 

phase__dlat  =  rad2deg  (phase_states_i  ( : ,  3 )  )  -  tgtlat; 
phase_dlon (phase_points  +  l : end)  =  [ ]  ; 
phase_dlat (phase_points  +  l : end)  =  [ ]  ; 
phase_di stance ( 1 : phase_points , i )  = 
acos (sin (phase_lat_i) . *sind (tgtlat)  +  ... 

cos (phase_lat_i ) . *cosd (tgtlat) . *  ... 
cosd (transpose (phase_dlon) ) ) *Rearth; 
phase_ddist_dt  =  dif f (phase_distance ( : , i ) ) ; 
phase  mindist_index  =  [ ]  ; 


%globe_plot2 (rel_states,  phase_states_i (:,:)) 

%  Calculate  the  longitudinal  difference  from  each  target 

latitude 


phase 


%  crossing,  then  check  for  hyperbolic,  re-entry,  and  less  than 
%  simulation  time  errors. 

[phase_dlon_lat_i , phase_theta]  =  d_lon_at_lat_f unc (phase_lon_i , 
lat_i,  . . . 

tgtlon,  tgtlat) ; 
if  phase_time_i (end)  ~=  simtime 

last_distance  =  acos (sin (phase_lat_i (end) ). *sind (tgtlat)  + 


cos (phase_lat_i (end) ) . *cosd (tgtlat) . *  ... 
cosd (phase_dlon (end) ) ) *Rearth; 
if  phase  dv_i  <  0.01  &&  last_distance  >  10 

error_message  =  ['Pass  '  num2str(i)  '  cannot  be  '  ... 

, 'reached  via  a  phase  maneuver  without  '  ... 

, 'intersecting  the  earth']; 
disp (error_message) ; 
unable  =  1; 
break 

else 

phase_dlon_lat  =  5; 
phase_theta ( i )  =  tgtlon  +  5; 

end 

elseif  length (phase_dlon_lat_i )  <  i  &&  phase_V  <  Vp_rel 

last_distance  =  acos (sin (phase_lat_i (end) ). *sind (tgtlat)  + 

cos (phase_lat_i (end) ) . *cosd (tgtlat) . *  ... 
cosd (phase_dlon (end) ) ) *Rearth; 
if  phase_dv_i  <  0.01  &&  last_distance  >  10 

error_message  =  ['Pass  '  num2str(i)  '  cannot  be  '  ... 

,  'reached  via  a  phase  maneuver  in  allotted  time']; 
disp (error_message) ; 
unable  =  1; 
break 

else 

phase_dlon_lat  =  -5; 
phase_theta ( i )  =  tgtlon  -  5; 

end 

elseif  phase_V  >  Vp_rel 

if  phase_dv_i  <  0.001 
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error_message  =  ['Pass  '  num2str(i)  '  cannot  be  '  .. 

, 'reached  via  a  phase  maneuver  because  the  delta 

, 'would  cause  a  hyperbolic  orbit']; 
disp (error_message) ; 
unable  =  1; 
break 

else 

phase_dlon_lat  =  -5; 
phase_theta ( i )  =  tgtlon  -  5; 

end 

else 

phase_dlon_lat  =  phase_dlon_lat_i ( i ) ; 
unable  =  [  ] ; 

end 

if  k  >  40 

disp ('not  sure  why  I  coudn ' ' t  get  this  one') 

unable  =  1; 

break 

end 


end 


End  of  while  loop 


if  k  ==  0 

phase_gs_i  =  rel_gs; 
phase_states_i  =  rel_states; 
phase_time_i  =  time; 
overflycount  =  overflycount  +  1; 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[phase_pass_states_i ,  phase_pass_time_i ]  =  ... 

states_at_lonpass (phase_states_i ,  phase_time_i ,  tgtlon); 


%  Resize  array  size  for  saving  wanted  data  each  loop 
phase  points  =  length (time) ; 
numl(i)  =  phase_points ; 
if  i  >  1 

if  phase  points  <  max (numl ( 1 : i- 1 ) ) 

phase_states_i (phase_points+l :max (numl (1 : i-1) ) , : )  =  ... 

zeros (max (numl ( 1 : i-1 ) )  -  phase_points , 6 ) ; 

phase_time_i (phase_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i-1 ) )  -  phase  points,!); 

elseif  phase  points  >  max (numl ( 1 : i-1 ) ) 

phase_states (max (numl ( 1 : i- 1 ) ) +1 : phase_points ,  : , 1 : i- 1 )  = 
zeros (phase  points  -  max (numl (1 : i-1) ) , 6, i-1) ; 
phase_time (max (numl (1 : i-1) ) +1 :phase_points, 1 : i-1)  =  ... 
zeros (phase  points  -  max (numl ( 1 : i-1 )), i-1 ) ; 

end 
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end 

phase_states  overf  lycount)  =  phase_states_i 

phase_dv (overf lycount)  =  abs (phase_initial_states ( i , 4 )  -  ... 

rel_initial_states (4)); 
phase_time (:, overf lycount)  =  phase_time_i ; 

phase_pass_states (overf lycount, : )  =  phase_pass_states_i (i, : ) ; 
phase  pass_time (overf lycount)  =  phase_pass_time_i ( i ) ; 


%  Save  all  wanted  data  into  "test"  variable 


phasecount  =  totalcount  +  overf lycount; 

test (phasecount, 1) 

=  test  num; 

test (phasecount, 2) 

=  run  ; 

test (phasecount, 3) 

=  tgtlat; 

test (phasecount, 4) 

=  tgtlon; 

test (phasecount, 5) 

=  bank; 

test (phasecount, 6) 

=  initialorbit . a; 

test (phasecount, 7) 

=  initialorbit . e; 

test (phasecount, 8) 

=  initialorbit.!; 

test (phasecount, 9) 

=  initialorbit . RAAN; 

test (phasecount, 10) 

=  initialorbit .AoP; 

test (phasecount, 11) 

=  initialorbit . nu; 

test (phasecount, 12) 

=  initial  states  (4); 

test (phasecount, 13) 

=  rad2deg ( initial  states (3)); 

test (phasecount, 14) 

=  rad2deg ( initial  states  (2)); 

test (phasecount, 15) 

=  n  point; 

test (phasecount, 16) 

=  e  point; 

test (phasecount, 17) 

=  w  point; 

test (phasecount, 18) 

=  s  point; 

test (phasecount, 19) 

=  n  time; 

test (phasecount, 20) 

=  e  time; 

test (phasecount, 21) 

=  w  time; 

test (phasecount, 22) 

=  s  time; 

test (phasecount, 23) 

=  2; 

test (phasecount, 24) 

=  i; 

test (phasecount, 25) 

=  0; 

test (phasecount, 26) 

=  phase  pass  time (overf lycount) ; 

test (phasecount, 27) 

=  0; 

test (phasecount, 28) 

=  0; 

test (phasecount, 29) 

=  0; 

test (phasecount, 30) 

=  0; 

test (phasecount, 31) 

=  0; 

test (phasecount, 32) 

=  0; 

test (phasecount, 33) 

=  0; 

test (phasecount, 34) 

=  rel  initial  states (1); 

test (phasecount, 35) 

=  rel  initial  states (1); 

test (phasecount, 36) 

=  rel  initial  states (1); 

test (phasecount, 37) 

=  rel  initial  states (1)  -  Rearth; 

test (phasecount, 38) 

=  rel  initial  states (1)  -  Rearth; 

test (phasecount, 39) 

=  rel  initial  states (1)  -  Rearth; 

test (phasecount, 40) 

=  max (phase  gs  i) ; 

test (phasecount, 41) 

=  0; 

test (phasecount, 42) 

=  2.44*  (phase  pass  states (overflycount 

Rearth) *lambda/D; 
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o\°  o\0 


else 


if  isempty (unable)  %  Only  perform  if  successful  overflight 
achieved 


overflycount  =  overflycount  +  1; 
globe_plot2 (rel_states, phase_states_i (:,:)) 

plotm ( [tgtlat  tgtlat]  ,  [tgtlon  phase_theta ( i ) ] ,  ' r ' ) 
plotstates (phase_states_i , phase_time_i ) 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[phase_pass_states_i ,  phase_pass_time_i ]  =  ... 

states_at_pass (phase_states_i ,  phase_time_i ,  tgtlat); 


%  Resize  array  size  for  saving  wanted  data  each  loop 
numl(i)  =  phase_points ; 
if  i  >  1 

if  phase_points  <  max (numl ( 1 : i-1 ) ) 

phase_states_i (phase_points+l :max (numl ( 1 : i-1 ) ) , : )  =  ... 

zeros (max (numl ( 1 : i- 1 ) )  -  phase_points , 6 ) ; 

phase_time_i (phase_points+l :max (numl ( 1 : i-1 )) )  =  ... 
zeros (max (numl ( 1 : i- 1 ) )  -  phase_points , 1 ) ; 

elseif  phase_points  >  max (numl ( 1 : i-1 ) ) 

phase_states (max (numl (1 : i-1) ) +1 rphase  points,  1 :  i-1)  = 

zeros (phase_points  -  max (numl (1 : i-1) ) , 6, i-1) ; 
phase_time (max (numl (1 : i-1) ) +1 :phase  points, 1 : i-1)  =  ... 
zeros (phase_points  -  max (numl ( 1 : i-1 )), i-1 )  ; 

end 

end 

phase_states  overflycount)  =  phase_states_i  ( : ,  : )  ; 

phase_dv (overflycount)  =  abs (phase_initial_states (i, 4)  -  ... 

rel_initial_states (4) ) ; 
phase  time (:, overflycount)  =  phase_time_i ; 

phase_pass_states (overflycount, : )  =  phase_pass_states_i (i, : ) ; 
phase_pass_time (overflycount)  =  phase_pass_time_i ( i ) ; 


%  Save  all  wanted  data  into  "test"  variable 
phasecount  =  overflycount  t  totalcount; 


test (phasecount, 1) 
test (phasecount, 2) 
test (phasecount, 3) 
test (phasecount, 4) 
test (phasecount, 5) 
test (phasecount, 6) 
test (phasecount, 7) 
test (phasecount, 8) 
test (phasecount, 9) 


test_num; 

run; 

tgtlat; 

tgtlon; 

0; 

initialorbit - 
initialorbit - 
initialorbit , 


a; 

e; 

i; 


=  initialorbit . RAAN; 
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test (phasecount, 10) 
test (phasecount, 11) 
test (phasecount, 12) 
test (phasecount,  13) 
test (phasecount, 14) 
test (phasecount, 15) 
test (phasecount, 16) 
test (phasecount, 17) 
test (phasecount, 18) 
test (phasecount, 19) 
test (phasecount, 20) 
test (phasecount, 21) 
test (phasecount, 22) 
test (phasecount, 23) 
test (phasecount, 24) 
test (phasecount,  25) 
test (phasecount, 26) 
test (phasecount,  27) 
test (phasecount, 28) 
test (phasecount, 29) 
test (phasecount, 30) 
test (phasecount, 31) 
test (phasecount, 32) 
test (phasecount,  33) 
test (phasecount, 34) 
test (phasecount, 35) 
test (phasecount, 36) 
test (phasecount, 37) 
test (phasecount, 38) 
test (phasecount, 39) 

Rearth; 

test (phasecount, 40) 
test (phasecount,  41) 
test (phasecount, 42) 

Rearth) *lambda/D; 


initialorbit . AoP; 

initialorbit. nu; 

initial_states (4) ; 

rad2deg ( initial_states (3) ) ; 

rad2deg ( initial_states (2) ) ; 

n_point; 

e_point; 

w_point; 

s_point; 

n_time; 

e_time; 

w_time; 

s_time; 

1; 

i; 

0; 

phase_pass_time (overt lycount)  ; 
phase_dv (overt lycount) ; 

0; 

0; 

0; 

phase_dv (overtlycount)  ; 
phase_dv (overtlycount) ; 

0; 

min (phase_states_i (:,!)); 
max (phase_states_i ( : , 1 ) ) ; 
phase_pass_states (overtlycount,  1)  ; 
min (phase_states_i ( : , 1 ) )  -  Rearth; 

max (phase_states_i ( : , 1 ) )  -  Rearth; 
phase_pass_states (overtlycount,  1)  - 

0; 

0; 

2.44* (phase_pass_states (overtlycount, 1) - 


end 

end 

end 

else 


phasecount 

end 


totalcount; 


SIMPLE  PLANE  CHANGE 


%  Initialize  outerloop  variables 
counterl  =  0; 
miss  tol  =  . 1 ; 
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o\o  o\o 


plane_overf lycount  =  0 ; 


Overflights  exist  using  a  simple  plane  change  for  longitude  crossings 
that  lie  in  the  same  hemisphere  as  the  target  latitude 
for  i  =  1 : length (dlat_lon) 

if  phi(i)  >  0  &&  tgtlat  >=  0 
counterl  =  counterl  +  1; 
plane_index (counterl )  =  i; 
elseif  phi(i)  <  0  &&  tgtlat  <=  0 
counterl  =  counterl  +  1; 
plane  index (counterl )  =  i; 

end 

end 


%  Loop  through  the  number  of  possible  overflights 
for  i  =  1: counterl 


%  Initialize  innerloop  variables 

plane_dlat_lon  =  dlat_lon(plane_index(i)); 

plane_initial_states ( i , : )  =  rel_initial_states ; 

plane_initialorbit  =  initialorbit; 

plane_inc  =  initialorbit . i ; 

plane_di  =  5; 

k=0; 

less  inc  =  0; 


%  Iterate  orbit  inclination  until  overflight  is  within  tolerance 
while  abs (plane_dlat_lon)  >  miss_tol 


%  Algorithm  to  change  the  step  size  of  the  d-inclination 
correction 

k  =  k+1; 

if  plane_dlat_lon  >  0 
zeroin ( k)  =  1 ; 
elseif  less_inc  ==  1 

zeroin (k)  =  -zeroin (k-1) ; 

else 

zeroin (k)  =  -1; 

end 

if  k  >  1 

if  zeroin (k)  ==  -zeroin (k-1) 
plane_di  =  plane_di/2; 

end 

end 

if  k  >  2 

if  zeroin (k)  ==  zeroin (k-1)  &&  zeroin (k)  ==  -zeroin (k-2) 

plane_di  =  plane_di/2; 

end 
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end 


%  Change  iinclination  in  order  to  produce  desired  groundtrack 
wrong_grade  =  [ ] ; 

if  tgtlat  ==  0  &&  plane  inc  <=  90; 
plane_inc  =  0; 

elseif  tgtlat  ==  0  &&  plane_inc  >  90; 

plane_inc  =  180; 
elseif  less  inc  ==  1 


plane  inc 

=  plane 

inc 

-  plane  di; 

elseif  plane 

dlat  Ion 

>  0 

&&  tgtlat  > 

0 

&& 

plane 

inc 

<=  90; 

plane  inc 

=  plane 

inc 

-  plane  di; 

elseif  plane 

dlat  Ion 

<  0 

&&  tgtlat  > 

0 

&& 

plane 

inc 

<=  90; 

plane  inc 

=  plane 

inc 

+  plane  di; 

elseif  plane 

dlat  Ion 

>  0 

&&  tgtlat  < 

0 

&& 

plane 

inc 

<=  90; 

plane  inc 

=  plane 

inc 

+  plane  di; 

elseif  plane 

dlat  Ion 

<  0 

&&  tgtlat  < 

0 

&& 

plane 

inc 

<=  90; 

plane  inc 

=  plane 

inc 

-  plane  di; 

elseif  plane 

dlat  Ion 

>  0 

&&  tgtlat  > 

0 

&& 

plane 

inc 

>  90; 

plane  inc 

=  plane 

inc 

+  plane  di; 

elseif  plane 

dlat  Ion 

<  0 

&&  tgtlat  > 

0 

&& 

plane 

inc 

>  90; 

plane  inc 

=  plane 

inc 

-  plane  di; 

elseif  plane 

dlat  Ion 

>  0 

&&  tgtlat  < 

0 

&& 

plane 

inc 

>  90; 

plane  inc 

=  plane 

inc 

-  plane  di; 

elseif  plane 

dlat  Ion 

<  0 

&&  tgtlat  < 

0 

&& 

plane 

inc 

>  90; 

plane_inc  =  plane_inc  t  plane  di; 

end 

if  initialorbit . i  >  90  &&  plane_inc  <=  90 
plane_inc  =  plane_inc  t  plane_di; 
plane_di  =  plane_di/2; 
wrong_grade  =  1; 

elseif  initialorbit . i  <  90  &&  plane  inc  >=  90 
plane_inc  =  plane_inc  -  plane_di; 
plane_di  =  plane_di/2; 
wrong  grade  =  1; 

end 

if  isempty (wrong_grade) 

plane  initialorbit.!  =  plane_inc; 


%  Convert  from  orbital  parameters  to  earth  relative  states 
plane  inert_initial_states  =  ... 

OrbEl_to_PlanetFix (plane  initialorbit,  startdate) ; 
plane_initial_states  =  ... 

Inertial2Rel_States (plane_inert_initial_states ) ; 
plane_initial_states ( 4 )  =  plane_initial_states ( 4 ) ; 


%  Calculate  the  flight  profile  using  calculated  initial 
conditions 

index  =  1; 
timer  =  [ ] ; 
bankplot  =  []; 
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acc  =  [ ] ; 

[plane_time  i , plane_states_i ]  =  ... 

ode4  5  (@equations_of_motion__ODE4  5,  .  .  . 

[0  simtime] , plane_initial_states ,  options)  ; 
plane_points  =  length (plane_time_i ) ; 


%  Correct  Longitude  to  be  from  -180  to  180 
for  ii  =  1 : plane_points 

if  plane_states_i ( ii , 2 )  >  pi 

plane_states_i ( ii : end, 2 )  =  ... 

-(pi  -  (plane_states_i ( ii : end, 2 )  -  pi) ) ; 

elseif  plane_states_i ( ii : end, 2 )  <  -pi 
plane_states_i ( ii : end, 2 )  =  ... 

(pi  +  (plane_states_i ( ii : end, 2 )  +  pi) ) ; 

end 

end 

plane_lat_i  =  plane_states_i ( : , 3 ) ; 
plane_lon_i  =  plane_states_i ( : , 2 ) ; 
plane_lat_i (plane  points  +  1 : end)  =  [ ]  ; 


%  Calculate  the  lat/long  difference  &  distance  from  the 
groundtrack 

for  ii  =  1 : plane_points 
plane_dlon ( ii )  =  ... 

delta_longitude (rad2deg (plane_states_i (ii, 2) ) , tgtlon) ; 

end 

plane_dlat  =  rad2deg (plane_states_i ( : , 3 ) )  -  tgtlat; 
plane  dlon (plane_points  +  l : end)  =  [ ]  ; 
plane_dlat (plane_points+l : end)  =  [ ] ; 


%  Calculate  the  latitudinal  difference  from  each  target 
longitude 

%  crossing 

[plane_dlat_lon_i , plane  phi_i]  =  ... 

d_lat_at_lon_func (plane_lon_i ,  plane_lat_i , tgtlon,  tgtlat) 
if  plane_index ( i )  <=  length (plane_dlat_lon_i ) 

plane_dlat_lon  =  plane_dlat_lon  i (plane_index (i) ) ; 
plane_phi  =  plane_phi_i (plane_index ( i ) ) ; 
less_inc  =  0; 

else 

less_inc  =  1; 

end 

end 


if  k  >  30 

error__message  =  ['Pass  '  num2str(i)  '  can'  't  be  reached  ' 

, 'within  30  iterations']; 
disp (error_message) ; 
unable  =  1; 
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o\°  o\° 


break 


else 

unable  =  [  ] ; 

end 

globe_plot (plane_states_i ) 

plotm ( [tgtlat  plane_phi] , [tgtlon  tgtlon],'r') 


end  % - End  of  while  loop 


if  k  ==  0 

plane_gs_i  =  rel_gs; 
plane_states_i  =  rel_states; 
plane_time_i  =  time; 

plane_overf lycount  =  plane  overflycount  +  1 ; 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[plane_pass_states_i ,  plane_pass_time_i ]  =  ... 

states_at_lonpass (plane_states_i ,  plane_time_i ,  tgtlon); 


%  Resize  array  size  for  saving  wanted  data  each  loop 
plane  points  =  length (time) ; 
numl(i)  =  plane  points; 
if  i  >  1 

if  plane_points  <  max (numl ( 1 : i-1 ) ) 

plane_states_i (plane_points+l :max (numl (1 : i-1) ) , : )  =  ... 

zeros (max (numl ( 1 : i-1 ) )  -  plane  points, 6); 

plane_time_i (plane_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i-1 ) )  -  plane_points , 1 ) ; 

elseif  plane_points  >  max (numl ( 1 : i-1 ) ) 

plane_states (max (numl ( 1 : i- 1 )) +1 : plane_points 1 : i- 1 )  =  ... 

zeros (plane  points  -  max (numl (1 : i-1) )  ,  6,  i-1)  ; 
plane  time (max (numl ( 1 : i- 1 )) +1 : plane  points, 1 : i-1)  =  ... 
zeros (plane_points  -  max (numl ( 1 : i-1 )), i-1 ) ; 

end 

end 

plane_states (:,:, plane_overf lycount)  =  plane_states_i ( : , : ) ; 
plane_dv (plane_overf lycount)  =  2 *plane_inert_initial_states ( 4 ) *  ... 

sind (abs (plane_initialorbit . i  -  initialorbit . i ) /2 ) ; 
plane_time (:, plane_overf lycount)  =  plane_time_i ; 
plane_pass_states (plane_overf lycount,  :)  = 
plane_pass_states_i (plane_index (i) , : ) ; 

plane  pass_time (plane_overf lycount)  = 
plane_pass_time_i (plane_index (i) ) ; 

%  Save  all  wanted  data  into  "test"  variable 
planecount  =  phasecount  +  plane  overflycount; 
test (planecount, 1 )  =  test_num; 
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test (planecount, 2) 
test (planecount,  3) 
test (planecount, 4) 
test (planecount, 5) 
test (planecount, 6) 
test (planecount, 7) 
test (planecount, 8) 
test (planecount, 9) 
test (planecount, 10) 
test (planecount, 11) 
test (planecount, 12) 
test (planecount, 13) 
test (planecount, 14) 
test (planecount, 15) 
test (planecount, 16) 
test (planecount, 17) 
test (planecount, 18) 
test (planecount, 19) 
test (planecount, 20) 
test (planecount, 21) 
test (planecount, 22) 
test (planecount,  23) 
test (planecount, 24) 
test (planecount,  25) 
test (planecount, 26) 
test (planecount, 27) 
test (planecount, 28) 
test (planecount, 29) 
test (planecount, 30) 
test (planecount, 31) 
test (planecount, 32) 
test (planecount, 33) 
test (planecount, 34) 
test (planecount, 35) 
test (planecount, 36) 
test (planecount, 37) 
test (planecount, 38) 
test (planecount, 39) 
test (planecount, 40) 
test (planecount, 41) 
test (planecount, 42) 

.  44*  (plane_pass  states 


=  run  ; 

=  tgtlat; 

=  tgtlon; 

=  bank; 

=  initialorbit . a; 

=  initialorbit . e; 

=  initialorbit.!; 

=  initialorbit . RAAN; 

=  initialorbit .AoP; 

=  initialorbit . nu; 

=  initial_states ( 4 ) ; 

=  rad2deg ( initial_states ( 3 ) ) ; 

=  rad2deg (initial_states (2) ) ; 

=  n_point; 

=  e_point; 

=  w  point; 

=  s_point; 

=  n_time; 

=  e_time; 

=  w_time; 

=  s_time; 

=  2; 

=  i; 

=  0; 

=  plane_pass_time (plane_overf lycount)  ; 

=  0; 

=  0; 

=  0; 

=  0; 

=  0; 

=  0; 

=  0; 

=  rel_initial_states ( 1 ) ; 

=  rel_initial_states ( 1 ) ; 

=  rel_initial_states  ( 1 ) ; 

=  rel_initial_states ( 1 )  -  Rearth; 

=  rel_initial_states ( 1 )  -  Rearth; 

=  rel_initial_states ( 1 )  -  Rearth; 

=  max (plane  gs_i) ; 

=  0; 

(plane  overt lycount, 1) -Rearth) *lambda/D; 


else 


if  isempty (unable) 

plane  overflycount  =  plane  overflycount  +  1; 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[plane_pass_states_i ,  plane_pass_time_i ]  =  ... 

states_at_lonpass (plane_states_i ,  plane_time_i ,  tgtlon) 
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%  Resize  array  size  for  saving  wanted  data  each  loop 
numl(i)  =  plane  points; 
if  i  >  1 

if  plane_points  <  max (numl ( 1 : i- 1 ) ) 

plane  states_i (plane_points+l :max (numl (1 : i-1) ) , : )  =  .. 

zeros (max (numl ( 1 : i-1 ) )  -  plane_points , 6 ) ; 

plane_time_i (plane_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i-1 ) )  -  plane_points , 1 ) ; 

elseif  plane_points  >  max (numl ( 1 : i-1 ) ) 

plane  states (max (numl ( 1 : i- 1 )) +1 : plane  points 1 : i- 1 ) 
zeros (plane^points  -  max (numl (1 : i-1) ) , 6, i-1) ; 
plane_time (max (numl ( 1 : i- 1 )) +1 : plane  points, 1 : i-1)  =  .. 
zeros (plane_points  -  max (numl ( 1 : i-1 )), i-1 )  ; 

end 

end 

plane_states ( : ,  : , plane_overf lycount)  =  plane_states_i ( : ,  : )  ; 
plane_dv (plane_overf lycount)  =  2 *plane_inert_initial_states ( 4 ) 
sind (abs (plane_initialorbit . i  -  initialorbit . i ) /2 ) ; 
plane_time (:, plane_overf lycount)  =  plane_time_i ; 
plane_pass_states (plane_overf lycount,  :)  = 
plane_pass_states_i (plane_index (i) , : ) ; 

plane  pass_time (plane_overf lycount)  = 
plane  pass_time_i (plane  index (i)); 


%  Save  all  wanted  data  into  "test"  variable 
planecount  =  phasecount  +  plane  overf lycount; 


test (planecount, 1) 
test (planecount, 2) 
test (planecount, 3) 
test (planecount, 4) 
test (planecount, 5) 
test (planecount, 6) 
test (planecount, 7) 
test (planecount, 8) 
test (planecount, 9) 
test (planecount, 10) 
test (planecount, 11) 
test (planecount, 12) 
test (planecount, 13) 
test (planecount, 14) 
test (planecount, 15) 
test (planecount, 16) 
test (planecount, 17) 
test (planecount, 18) 
test (planecount, 19) 
test (planecount, 20) 
test (planecount, 21) 
test (planecount, 22) 
test (planecount, 23) 
test (planecount, 24) 
test (planecount, 25) 
test (planecount, 26) 
test (planecount, 27) 


test_num; 

run; 

tgtlat; 

tgtlon; 

0; 

initialorbit. a; 
initialorbit.e; 
initialorbit. i; 
initialorbit. RAAN; 

=  initialorbit .AoP; 

=  initialorbit . nu; 

=  initial_states ( 4 ) ; 

=  rad2deg ( initial_states ( 3 ) ) ; 

=  rad2deg (initial_states (2) ) ; 

=  n_point; 

=  e_point; 

=  w_point; 

=  s_point; 

=  n_time; 

=  e_time; 

=  w_time; 

=  s_time; 

=  2; 

=  i; 

=  0; 

=  plane  pass  time (plane_overf lycount) 
=  plane^dv (plane  overflycount) ; 
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test (planecount, 28)  = 
test (planecount, 29)  = 
test (planecount, 30 )  = 
test (planecount, 31 )  = 
test (planecount, 32 )  = 
test (planecount, 33)  = 
test (planecount, 34 )  = 
test (planecount, 35)  = 
test (planecount, 36)  = 
test (planecount, 37 )  = 
test (planecount, 38 )  = 
test (planecount, 39)  = 
Rearth; 

test (planecount, 40 )  = 
test (planecount, 41)  = 
test (planecount, 42 )  = 
2.44* (plane_pass_states (pi 


0; 

0; 

0; 

plane  dv (plane  overflycount) ; 

0;  ^ 

plane  initialorbit . i  -  initialorbit . i 
min (plane_states_i ( : , 1) ) ; 
max (plane_states_i ( : , 1 ) ) ; 
pi ane_pass_s bates (plane_overf lycount , 
min (plane_states_i ( : , 1 ) )  -  Rearth; 
max (plane_states_i ( : , 1 ) )  -  Rearth; 
plane_pass_s bates ( pi ane_overf lycount , 

0; 

0; 

ane_overf lycount, 1) -Rearth) *lambda/D; 


1) 

1) 


%globe_plot2 (rel_states, plane_states_i ) 

%plotm ( [tgtlat  plane_phi] , [tgtlon  tgtlon],'r') 
end 
end 
end 


Repeat  above  for  an  opposite  grade  orbit 


initialorbit2  =  initialorbit; 
initialorbit2 . i  =  180  -  initialorbit.!; 

initial_states2  =  OrbEl_to_PlanetFix ( initialorbit2 ,  startdate) ; 

rel_initial_states2  =  Inertial2Rel_States ( initial_states2 ) ; 

rel_initial_states2 ( 4 )  =  rel_initial_states2 ( 4 ) ; 

index  =  1 ; 

timer  =  [ ] ; 

bankplot  =  []; 

[time2 , rel_states2 ]  =  ode45  ... 

(@equations_of_motion_ODE45, [0 
simtime] , rel_initial_states2 , options) ; 


%  Correct  Longitude  to  be  between  -180  and  180  degrees 
datapoints2  =  length (time2 ) ; 
for  i  =  1 : datapoints2 

if  rel_states2 ( i ,  2 )  >  pi 

rel_states2 ( i : end, 2 )  =  -(pi  -  (rel_states2 (i rend, 2)  -  pi) 

elseif  rel_states2 ( i : end,  2 )  <  -pi 

rel_states2 ( i : end, 2 )  =  (pi  +  (rel_states2 (i rend, 2)  +  pi)) 

end 

end 
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%  Find  the  longitudinal  and  latitudinal  difference  at  each  point 
for  i  =  1 : datapoints2 

dlon2 (i)  =  delta_longitude (rad2deg (rel_states2 (i, 2) ) , tgtlon)  ; 

end 

dlat2  =  rad2deg (rel_states2 ( : , 3) )  -  tgtlat; 
lat2  =  rel_states2  ( : , 3 )  ; 
lon2  =  rel  states2  ( : , 2 )  ; 


%  Find  the  d-longitude  for  each  target  latitude  passing 
[dlat_lon2,  phi2]  =  d_lat_at_lon_func ( lon2 ,  lat2,  tgtlon,  tgtlat); 


%  Overflights  exist  using  a  simple  plane  change  for  longitude  crossings 

%  that  lie  in  the  same  hemisphere  as  the  target  latitude 

counter2  =  counterl; 

for  i  =  1 : length (dlat_lon2 ) 

if  phi2(i)  >  0  &&  tgtlat  >=  0 
counter2  =  counter2  +  1; 
plane_index (counter2 )  =  i; 
elseif  phi2(i)  <  0  &&  tgtlat  <=  0 
counter2  =  counter2  +  1; 
plane_index (counter2 )  =  i; 

end 

end 


%  Loop  through  the  number  of  possible  overflights 
for  i  =  counterl+1 : counter2 


%  Initialize  innerloop  variables 

plane_dlat_lon  =  dlat_lon2 (plane_index ( i ) ) ; 

plane_initial_states ( i , : )  =  rel_initial_states2 ; 

plane_initialorbit  =  initialorbit2 ; 

plane_inc  =  initialorbit2 . i ; 

plane_di  =  5; 

k=0; 


%  Iterate  orbit  inclination  until  overflight  is  within  tolerance 
while  abs (plane_dlat_lon)  >  miss_tol  % - 


%  Algorithm  to  change  the  step  size  of  the  d-inclination 
correction 

k  =  k+1; 

if  plane_dlat_lon  >  0 
zeroin ( k)  =  1 ; 

else 
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zeroin ( k) 


-1; 


end 

if  k  >  1 

if  zeroin ( k) 
plane_di 

end 

end 

if  k  >  2 

if  zeroin ( k) 
plane_di 

end 

end 


==  -zeroin (k-1) 
=  plane_di/2; 


==  zeroin (k-1)  &&  zeroin (k) 

=  plane_di/2; 


-zeroin (k-2) 


%  Change  iinc 
wrong_grade  = 
if  tgtlat  == 
plane_inc 
elseif  tgtlat 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane_inc 
elseif  plane 
plane  inc 


lination  in  order  to  produce 


0  &&  plane_inc  <=  90; 

=  0; 

==  0  &&  plane_inc  >  90; 

=  180; 

dlat_lon  >  0  &&  tgtlat  >  0  && 
=  plane_inc  -  plane_di; 
dlat_lon  <  0  &&  tgtlat  >  0  && 
=  plane_inc  +  plane_di; 
dlat_lon  >  0  &&  tgtlat  <  0  && 
=  plane_inc  +  plane_di; 
dlat_lon  <  0  &&  tgtlat  <  0  && 
=  plane_inc  -  plane_di; 
dlat_lon  >  0  &&  tgtlat  >  0  && 
=  plane_inc  +  plane_di; 
dlat_lon  <  0  &&  tgtlat  >  0  && 
=  plane_inc  -  plane_di; 
dlat_lon  >  0  &&  tgtlat  <  0  && 
=  plane_inc  -  plane_di; 
dlat_lon  <  0  &&  tgtlat  <  0  && 
=  plane  inc  +  plane  di; 


desired  groundtrack 


plane_inc  <=  90; 
plane_inc  <=  90; 
plane_inc  <=  90; 
plane_inc  <=  90; 
plane_inc  >  90; 
plane_inc  >  90; 
plane_inc  >  90; 
plane_inc  >  90; 


end 

if  initialorbit2 . i  >  90  &&  plane_inc  <=  90 
plane_inc  =  plane_inc  +  plane_di; 
plane  di  =  plane_di/2; 
wrong_grade  =  1 ; 

elseif  initialorbit2 . i  <  90  &&  plane_inc  >=  90 
plane_inc  =  plane_inc  -  plane_di; 
plane  di  =  plane_di/2; 
wrong_grade  =  1; 


end 

if  isempty (wrong_grade) 

plane  initialorbit . i  =  plane  inc; 


%  Convert  from  orbital  parameters  to  earth  relative  states 
plane  inert_initial_states  =  ... 

OrbEl_to_PlanetFix (plane  initialorbit,  startdate) ; 
plane_initial_states  =  ... 
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Inertial2Rel_States (plane_inert_initial_states ) ; 


%  Calculate  the  flight  profile  using  calculated  initial 
conditions 

index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  [ ] ; 

[plane_time_i , plane  states_i] 

=ode45 (@equations_of_motion_ODE45, . . . 

[0  simtime] , plane_initial_states , options) ; 
plane  points  =  length (plane_time_i ) ; 


%  Correct  Longitude  to  be  from  -180  to  180 
for  ii  =  1 : plane_points 

if  plane_states_i ( ii , 2 )  >  pi 

plane_states_i ( ii : end, 2 )  =  ... 

-(pi  -  (plane_states_i ( ii : end, 2 )  -  pi) ) ; 

elseif  plane_states_i ( ii : end, 2 )  <  -pi 
plane_states_i ( ii : end, 2 )  =  ... 

(pi  +  (plane_states_i ( ii : end, 2 )  +  pi) ) ; 

end 

end 

plane_lat_i  =  plane_states_i ( : , 3 ) ; 
plane_lon_i  =  plane_states_i ( : , 2 ) ; 
plane  lat_i (plane  points  +  1 : end)  =  [ ]  ; 


%  Calculate  the  lat/long  difference  &  distance  from  the 
groundtrack 

for  ii  =  1 : plane_points 
plane_dlon ( ii )  =  ... 

delta_longitude (rad2deg (plane_states_i (ii, 2) ) , tgtlon) 

end 

plane_dlat  =  rad2deg (plane_states_i ( : , 3 ) )  -  tgtlat; 
plane  dlon (plane_points  +  l : end)  =  [ ]  ; 
plane  dlat (plane_points  +  l : end)  =  [ ]  ; 


%  Calculate  the  latitudinal  difference  from  each  target 
longitude 

%  crossing 

[plane_dlat_lon_i , plane_phi_i ]  =  ... 

d_lat_at_lon_func (plane_lon_i ,  plane_lat_i,  tgtlon, 

tgtlat) ; 

plane  dlat_lon  =  plane_dlat_lon_i (plane_index ( i ) ) ; 
plane_phi  =  plane  phi_i (plane_index ( i ) ) ; 


if  k  >  30 
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error  message  =  ['Pass  '  num2str(i)  '  can ' ' t  be  reached  ' 

, 'within  30  iterations']; 
disp (error_message) ; 
unable  =  1; 
break 

else 

unable  =  [ ] ; 

end 

end 


end  % - End  of  while  loop 


if  k  ==  0 

plane_gs_i  =  rel_gs; 
plane_states_i  =  rel_states; 
plane_time_i  =  time; 

plane_overf lycount  =  plane  overflycount  +  1; 

%  Interpolate  other  data  to  find  data  at  actual  pass 
[plane_pass_states_i ,  plane_pass_time_i ]  =  ... 

states_at_lonpass (plane_states_i ,  plane_time_i ,  tgtlon) ; 


%  Resize  array  size  for  saving  wanted  data  each  loop 
plane  points  =  length (time) ; 
numl(i)  =  plane_points ; 
if  i  >  1 

if  plane  points  <  max (numl ( 1 : i- 1 ) ) 

plane_states_i (plane_pointstl :max (numl (1 : i-1) )  ,  : )  =  ... 

zeros (max (numl ( 1 : i-1 ) )  -  plane  points, 6); 

plane_time_i (plane_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i-1 ) )  -  plane_points , 1 ) ; 

elseif  plane  points  >  max (numl ( 1 : i-1 ) ) 

plane_states (max (numl ( 1 : i- 1 )) +1 : plane_points 1 : i- 1 )  =  ... 

zeros (plane  points  -  max (numl (1 : i-1) ) , 6, i-1) ; 
plane_time (max (numl (1 : i-1) ) +1 :plane_points, 1 : i-1)  =  ... 
zeros (plane  points  -  max (numl ( 1 : i-1 )), i-1 ) ; 

end 

end 

plane_states (:,:, plane_overf lycount)  =  plane_states_i ( : , : ) ; 
plane_dv (plane_overf lycount)  =  2*plane_inert_initial_states (4) *  ... 

sind (abs (plane_initialorbit . i  -  initialorbit.i)/2); 
plane_time (:, plane_overf lycount)  =  plane_time_i ; 

plane_pass_states (plane_overf lycount, : )  =  plane_pass_states_i (i, : ) ; 
plane  pass_time (plane_overf lycount)  =  plane  pass_time_i ( i ) ; 


%  Save  all  wanted  data  into  "test"  variable 
planecount  =  phasecount  t  plane_overf lycount; 
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test (planecount, 1) 
test (planecount, 2) 
test (planecount, 3) 
test (planecount,  4) 
test (planecount, 5) 
test (planecount, 6) 
test (planecount, 7) 
test (planecount, 8) 
test (planecount, 9) 
test (planecount, 10) 
test (planecount, 11) 
test (planecount, 12) 
test (planecount, 13) 
test (planecount, 14) 
test (planecount, 15) 
test (planecount, 16) 
test (planecount, 17) 
test (planecount, 18) 
test (planecount, 19) 
test (planecount, 20) 
test (planecount, 21) 
test (planecount, 22) 
test (planecount, 23) 
test (planecount, 24) 
test (planecount, 25) 
test (planecount, 26) 
test (planecount, 27) 
test (planecount, 28) 
test (planecount, 29) 
test (planecount, 30) 
test (planecount, 31) 
test (planecount, 32) 
test (planecount, 33) 
test (planecount, 34) 
test (planecount, 35) 
test (planecount, 36) 
test (planecount, 37) 
test (planecount, 38) 
test (planecount, 39) 
test (planecount, 40) 
test (planecount, 41) 
test (planecount, 42) 

. 44* (plane_pass  states 


=  test_num; 

=  run  ; 

=  tgtlat; 

=  tgtlon; 

=  bank; 

=  initialorbit . a; 

=  initialorbit . e; 

=  initialorbit.!; 

=  initialorbit . RAAN; 

=  initialorbit .AoP; 

=  initialorbit . nu; 

=  initial_states ( 4 ) ; 

=  rad2deg ( initial_states ( 3 ) ) ; 

=  rad2deg (initial_states (2) ) ; 

=  n_point; 

=  e_point; 

=  w_point; 

=  s_point; 

=  n_time; 

=  e_time; 

=  w_time; 

=  s_time; 

=  2; 

=  i; 

=  0; 

=  plane  pass  time (plane_overf lycount) ; 

=  0; 

=  0; 

=  0; 

=  0; 

=  0; 

=  0; 

=  0; 

=  rel_initial_states ( 1 ) ; 

=  rel_initial_states  ( 1 ) ; 

=  rel_initial_states ( 1 ) ; 

=  rel_initial_states ( 1 )  -  Rearth; 

=  rel_initial_states ( 1 )  -  Rearth; 

=  rel_initial_states ( 1 )  -  Rearth; 

=  max (plane_gs_i ) ; 

=  0; 

(plane  overt lycount, 1) -Rearth) *lambda/D; 


else 


if  isempty (unable) 

plane_overf lycount  =  plane  overflycount  +  1; 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[plane_pass_states_i ,  plane_pass_time_i ]  =  ... 

states_at_lonpass (plane_states_i ,  plane_time_i ,  tgtlon) 
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%  Resize  array  size  for  saving  wanted  data  each  loop 
numl(i)  =  plane_points ; 
if  i  >  1 

if  plane^points  <  max (numl ( 1 : i- 1 ) ) 

plane  states  i (plane_points+l :max (numl (1 : i-1) ) , : )  =  . 

zeros (max (numl ( 1 : i-1 ) )  -  plane_points , 6 ) ; 

plane_time_i (plane_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i-1 ) )  -  plane_points , 1 ) ; 

elseif  plane_points  >  max (numl ( 1 : i-1 ) ) 

plane  states (max (numl ( 1 : i- 1 ) ) +1 : plane_points , : , 1 : i- 1 ) 
zeros (plane  points  -  max (numl (1 : i-1) ) , 6, i-1) ; 
plane_time (max (numl (1 : i-1) ) +1 :plane_points,  1 : i-1)  =  . 
zeros (plane  points  -  max (numl ( 1 : i-1 )), i-1 ) ; 

end 

end 

plane_states ( : , : , plane_overf lycount)  =  plane_states_i ( : , : ) ; 
plane_dv (plane_overf lycount)  =  2 *plane_inert_initial_states ( 4 
sind (abs (plane_initialorbit . i  -  initialorbit.i)/2); 
plane_time (:, plane_overf lycount)  =  plane_time_i ; 
plane_pass_states (plane_overf lycount,  :)  = 
plane_pass_states_i (plane_index (i) , : ) ; 

plane_pass_time (plane_overf lycount)  = 
plane  pass_time_i (plane  index (i)); 


%  Save  all  wanted  data  into  "test"  variable 
planecount  =  phasecount  +  plane  overf lycount ; 


test (planecount, 1) 
test (planecount, 2) 
test (planecount,  3) 
test (planecount, 4) 
test (planecount, 5) 
test (planecount, 6) 
test (planecount,  7) 
test (planecount, 8) 
test (planecount, 9) 
test (planecount, 10) 
test (planecount, 11) 
test (planecount, 12) 
test (planecount, 13) 
test (planecount, 14) 
test (planecount, 15) 
test (planecount, 16) 
test (planecount, 17) 
test (planecount, 18) 
test (planecount, 19) 
test (planecount, 20) 
test (planecount, 21) 
test (planecount, 22) 
test (planecount, 23) 
test (planecount, 24) 
test (planecount, 25) 


test_num; 

run; 

tgtlat; 

tgtlon; 

0; 

initialorbit.a; 
initialorbit.e; 
initialorbit.i; 
initialorbit. RAAN; 

=  initialorbit .AoP; 

=  initialorbit . nu; 

=  initial_states ( 4 ) ; 

=  rad2deg ( initial_states 
=  rad2deg ( initial_states 
=  n_point; 

=  e_point; 

=  w  point; 

=  s_point; 

=  n_time; 

=  e_time; 

=  w_time; 

=  s_time; 

=  2; 

=  i; 

=  0; 


(3) 

(2) 
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test 
test 
test 
test 
test 
test 
test 
test 
test 
test 
test 
test 
test 
test 
Rearth; 
test 
test 
test 
2.44* (pi 


26) 

= 

plane  pass  time (plane  overflycount) ; 

27) 

= 

plane  dv (plane  overflycount); 

28) 

= 

0; 

29) 

= 

0; 

30) 

= 

0; 

31) 

= 

plane  dv (plane  overflycount); 

32) 

= 

0; 

33) 

= 

plane  initialorbit.!  - 

initialorbit.!; 

34) 

= 

min (plane  states  i(:,l) 

)  ; 

35) 

= 

max (plane  states  i(:,l) 

)  ; 

36) 

= 

plane  pass  states (plane 

overflycount, 1 

37) 

= 

min (plane  states  i(:,l) 

)  -  Rearth; 

38) 

= 

max (plane  states  i(:,l) 

)  -  Rearth; 

39) 

plane  pass  states (plane 

overflycount,  1 

40) 

= 

0; 

41) 

= 

0; 

42) 

= 

ane  pass_states (plane_overf lycount, 1) -Rearth) *lambda/D; 


%globe_plot2 (rel_states, plane_states_i ) 

%plotm ( [tgtlat  plane_phi] , [tgtlon  tgtlon],'r') 
%  plotstates (plane_states_i , plane_time_i ) 
end 
end 
end 


SKIP  MANEUVER 


%  Initialize  outer  variables 

options  =  odeset ( ' RelTol '  ,  le-7,  ' AbsTol ' , le-7,  ' Events ' , @breakevent) ; 
skip_inc  =  initialorbit . i ; 
miss_tol  =  0.1; 
if  initialorbit . i  <=  90 
orig_proretro  =  1; 

else 

orig_proretro  =  -1; 

end 

tsection  =  tsection  start; 


%  Find  the  velocity  change  needed  to  overfly  each  target  longitudinal 
%  crossing 

for  i  =  1 : length (dlat_lon) 


%  Initialize  outer  loop  variables 
skip_dlat_lon  =  dlat_lon(i); 
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skip_lat_sign  =  sign (phi ( i )) ; 
lat_sign  =  sign (phi ( i )) ; 

skip_initial_states  =  rel_initial_states ; 
skip_v  =  rel_initial_states ( 4 ) ; 
skip_dv_i  =  0.14; 
k=0; 

proretro  =  orig  proretro; 
skip_error  =  [ ] ; 
reentry  =  [ ] ; 
bankf lag  =  [  ] ; 
getlower  =  0; 
gethigher  =  0; 
getlower_count  =  0; 
stayV  =  0; 
kcount  =  0; 
startlate  =  0; 
bank_angle  =  80; 
skipstartf lag  =  0; 


%  Determine  which  section  of  flight  and  which  direction  of  bank 

will 

%  produce  the  optimum  change  in  the  overflight  groundtrack 
[banksign  section]  =  ... 

bank_section (pass_states (i, 6) , phi (i) , dlat_lon (i) , tgtlat) ; 


%  Determine  if  original  ground  track  needs  (+)  or  (-) 
%  change 

if  skip_dlat_lon  >  0  &&  tgtlat  >  0  &&  skip_inc  <=  90; 
inc_sign  =  -1; 


elseif  skip  dlat  Ion 

< 

0 

&& 

inc  sign  =  1; 
elseif  skip  dlat  Ion 

> 

0 

&& 

inc  sign  =  1; 
elseif  skip  dlat  Ion 

< 

0 

&& 

inc  sign  =  -1; 
elseif  skip  dlat  Ion 

> 

0 

&& 

inc  sign  =  1; 
elseif  skip  dlat  Ion 

< 

0 

&& 

inc  sign  =  -1; 
elseif  skip  dlat  Ion 

> 

0 

&& 

inc  sign  =  -1; 
elseif  skip  dlat  Ion 

< 

0 

&& 

inc  sign  =  1; 

tgtlat 

> 

0 

&& 

skip 

inc 

<= 

tgtlat 

< 

0 

&& 

skip 

inc 

<= 

tgtlat 

< 

0 

&& 

skip 

inc 

<= 

tgtlat 

> 

0 

&& 

skip 

inc 

> 

tgtlat 

> 

0 

&& 

skip 

inc 

> 

tgtlat 

< 

0 

&& 

skip 

inc 

> 

tgtlat 

< 

0 

&& 

skip 

inc 

> 

inclination 

90; 

90; 

90; 

90; 

90; 

90; 

90; 


end 


%  Change  velocity  until  minimum  distance  is  within  tolerances  or 
until 

%  determined  that  overflight  for  particular  longitudinal  crossing 
is 

%  not  possible 

while  abs (skip_dlat_lon)  >  miss_tol 
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%  Initialize  inner  loop  variables 
stop  =  0; 
i  i  =  0  ; 

Rsensible  =  6515; 


%  If  entering  sensible  atm  puts  groundtrack  on  opposite 
latitude  side 

%  of  the  target  switch  the  bank  angle 
if  getlower_count  >  4  &&  isempty (bankf lag) 

%bank  angle  =  -bank  angle; 
dlat_lon(i)  =  -dlat_lon ( i ) ; 
bankf lag  =  1; 
elseif  getlower_count  >  4 
bank_angle_change  =  1; 

else 

bank_angle_change  =  0; 

end 


%  Algorithm  to  change  the  step  size  of  the  d-v  correction 

k  =  k+1; 

if  k  >  1  &&  skipstartf lag  ==  0 
skip_dv_i  =  skip_dv_i/2; 
skipstartf lag  =  1; 

end 

if  stayV  ==  1 

zeroin(k)  =  zeroin(k-l); 

elseif  getlower  ==  1 
zeroin ( k)  =  1 ; 

elseif  gethigher  ==  1 
zeroin (k)  =  -1; 

elseif  sign (skip_dlat_lon)  ==  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ==  lat_sign) 
zeroin ( k)  =  1 ; 

elseif  sign (skip_dlat_lon)  ~=  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ==  lat_sign) 
zeroin (k)  =  -1; 

elseif  sign (skip_dlat_lon)  ==  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign)  &&  (proretro  ~= 

orig_proretro) 

zeroin (k)  =  -1; 

elseif  sign (skip_dlat_lon)  ~=  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign)  &&  (proretro  ~= 

orig  proretro) 

zeroin ( k)  =  1 ; 

elseif  sign (skip_dlat_lon)  ==  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign) 
zeroin ( k)  =  1 ; 

elseif  sign (skip_dlat_lon)  ~=  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign) 
zeroin (k)  =  -1; 
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end 

if  k  >  1 

if  zeroin ( k)  == 
skip_dv_i  = 

end 

end 

if  k  >  2 

if  zeroin ( k)  == 
skip_dv_i  = 

end 

end 


- zeroin ( k- 1 ) 
s  kip_dv_i / 2 ; 


zeroin(k-l)  &&  zeroin(k) 
s  kip_dv_i / 2 ; 


-zeroin (k-2) 


%  Change  initial  velocity  in  order  to  produce  desired 
groundtrack 

if  stayV  ==  1; 

skip_v  =  skip_v  +  0; 
elseif  getlower  ==  1 

skip_v  =  skip_v  -  skip_dv_i; 
elseif  reentry  ==  1 

skip_v  =  skip_v  +  skip_dv_i; 

%skip_dv_i  =  skip_dv_i/2 ; 
elseif  gethigher  ==  1; 

skip_v  =  skip_v  +  skip_dv_i; 
elseif  sign (skip_dlat_lon)  ==  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ==  lat_sign) 
skip_v  =  skip_v  -  skip_dv_i; 
elseif  sign (skip_dlat_lon)  ~=  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ==  lat_sign) 
skip_v  =  skip_v  +  skip_dv_i; 
elseif  sign (skip_dlat_lon)  ==  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign)  &&  (proretro  ~= 

orig  proretro) 

skip_v  =  skip_v  +  skip_dv_i; 
elseif  sign (skip_dlat_lon)  ~=  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign)  &&  (proretro  ~= 

orig_proretro) 

skip_v  =  skip_v  -  skip_dv_i; 
elseif  sign (skip_dlat_lon)  ==  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign) 
skip_v  =  skip_v  -  skip_dv_i; 
elseif  sign (skip_dlat_lon)  ~=  sign (dlat_lon ( i ) )  &&  ... 

( skip_lat_sign  ~=  lat_sign) 
skip_v  =  skip_v  +  skip_dv_i; 

end 

skip_initial_states ( 4 )  =  skip_v; 
skip_v; 


angle 

at 


%  Initialize  variables  needed  to  determine  the  needed  bank 
%  for  various  phases  of  flight  trajectory  if  unable  to  perform 
%  the  optimal  time. 
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bank  =  bank_angle; 
if  inc_sign  >  0  &&  skip 
flaggerl  =  1; 
flagger2  =  1; 
elseif  inc_sign  <  0  && 
flaggerl  =2; 
flagger2  =2; 
elseif  inc_sign  >  0  && 
flaggerl  =  3; 
flagger2  =  3; 
elseif  inc_sign  <  0  && 
flaggerl  =  4; 
flagger2  =  4; 

else 

flaggerl  =  5; 
flagger2  =  5; 

end 


initial  states (6)  >  0 


skip_initial_states ( 6 )  >  0 
skip_initial_states ( 6 )  <  0 
skip_initial_states ( 6 )  <  0 


%  Find  the  flight  profile  with  the  change  in  velocity  occureing 
at 

%  time  0 . 
index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  [ ] ; 

[skip_time_ll, skip_states_ll]  = 
ode45 ( @equations_of_motion  ODE45_bank, . . . 

[0  simtime] , skip_initial_states , options) ; 
skip  points  =  length ( skip_time_l 1 ) ; 
skip_bankplot_l 1  =  bankplot; 
skip_gs_ll  =  acc; 
skip_timer  11  =  timer; 


%  Find  the  time  it  takes  to  enter  the  sensible  atm  and  restart 

loop 

%  if  sensible  atm  is  not  reached 
if  min ( skip_states_l 1 ( : , 1 ) )  <  Rsensible 
while  stop  ==  0 
ii  =  ii  +  1; 

if  skip_states_l 1 ( ii , 1 )  <  Rsensible 
stop  =  1; 

tmaneuver  =  skip_time_ll (ii) ; 

end 

end 


%  Determine  the  maneuver  start  time  and  the  direction  of 

bank 

ii=0  ; 
if  k  ==  1 

while  tsection ( 1 , 1 )  -  tmaneuver<  0 

ii  =  ii+1; 
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tsection ( 1 : end-1 ,: )  =  tsection (2 : end, : ) ; 
tsection (end, : )  =  [ ] ; 
if  length (tsection)  <  4; 

tsection ( 4 ,: )  =  tsection_reserve ( iit4 , : ) ; 

end 

end 

if  length (tsection)  >  4 

tsection_reserve  =  tsection; 

end 

tsection ( 5 : end, : )  =  [ ] ; 

end 

periodtime  =  (tsection (3, 1)  -  tsection (2 , 1 )) *4 ; 
if  startlate  ==  1 

tsection (:, 1 )  =  tsection (:, 1 )  +  periodtime; 

end 

quadtime  =  (tsection (2 , 1 )  -  tsection ( 1 , 1 )) /4 ; 

postimel  =  tsection  (tsection (:, 2 )  ==  section  ( 1 ), 1 )  + 

quadtime; 

postime2  =  tsection (tsection (:, 2 )  ==  section (2 ), 1 )  + 

quadtime; 

if  postimel  <  postime2 

tstart  =  postimel  -  tmaneuver; 
if  bank_angle_change  ==  1 

bank  =  -bank*sign (banksign ( 1 ) ) ; 

else 

bank  =  bank*sign (banksign ( 1 )) ; 

end 

else 

tstart  =  postime2  -  tmaneuver; 
if  bank  angle_change  ==  1 

bank  =  -bank*sign (banksign (2 )) ; 

else 

bank  =  bank*sign (banksign (2 )) ; 

end 

end 


%  Re-start  loop  if  overflight  time  is  less  than  the  time  it 
%  takes  to  perform  maneuver, 
if  pass_time(i)  <  tmaneuver 

if  abs ( skip_dlat_lon)  <  miss_tol*3 

error_message  =  ['Pass  '  num2str(i)  '  can  be 

reached  '  ... 

, 'within  3*miss  toleranace  or  30  miles']; 
disp (error_message) ; 
skip_error  =  1; 
break 

else 

skip_error  =  1; 

break 

end 

end 
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%  Find  state  variables  at  maneuver  start  time  and  the 

change  in 

%  velocity  for  the  first  phase  of  the  trajectory 
if  pass_time(i)  >  tstart 
stop  =  0; 
i  i  =  0  ; 

while  stop  ==  0; 
ii  =  ii  +  1; 
if  time(ii)  >  tstart 

time_index  =  ii  -  1; 
stop  =  1; 

end 

end 

i  i  =  0  ; 
stop  =  0; 
while  stop  ==  0; 
ii  =  ii  +  1; 

if  reltimer(ii)  >  tstart 
timer_index  =  ii  -  1; 
stop  =  1; 

end 

end 

skiptime_initial_states  =  rel_states (time_index,  : ) ; 
skiptime_initial_states ( 4 )  =  skip_v; 
skip_dvl  =  rel_states (time_index, 4 )  -  ... 

skiptime_initial_states (4)  ; 


%  Calculate  the  flight  profile  with  the  bank  maneuver 

done 

%  a  the  correct  time 
index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  [ ] ; 

[skip_time_ll, skip_states_ll]  =  ... 

ode45 (@equations_of_motion_ODE45, . . . 

[0  simtime- 

tstart] , skiptime_initial_states , options)  ; 

skip  bankplot_ll  =  bankplot; 
skip_gs_ll  =  acc; 
skip_timer_l 1  =  timer; 


%  Concatenate  the  pre-skip  data  with  the  skip  data 
skip_time  11  =  skip_time_ll  +  tstart; 
skip_timer_l 1  =  skip_timer_l 1  +  tstart; 
skip_time_l  =  vertcat (time ( 1 : time_index- 


1) , skip_time_l 1 ) ; 


1,  :)  , 


skip_states_l 


vertcat (rel  states ( 1 : time  index- 


1) 


skip_states_l 1 ) ; 

skip_bankplot_l  =  horzcat (rel_bankplot ( 1 : timer_index- 
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skip_bank;plot_l  1 )  ; 

sk;ip_gs_l  =  horzcat  (rel_gs  ( 1 :  timer_index- 

1 )  ,  sk;ip_gs_l  1 )  ; 

skip_timer_l  =  horzcat (reltimer ( 1 : timer_index- 1 ),.. . 
skip_timer_l 1 ) ; 

skip  points  =  length ( skip_states_l ) ; 
startime  =  tstart; 

else 


%  If  skip  was  done  at  time  0  no  need  to  concatenate 

skip_time_l  =  skip_time_l 1 ; 

skip_states_l  =  skip_states_l 1 ; 

skip_bankplot_l  =  skip_bankplot_l 1 ; 

skip_gs_l  =  skip_gs_ll; 

skip_timer_l  =  skip_timer_l 1 ; 

skip_points  =  length ( skip_states_l ) ; 

skip_dvl  =  rel_initial_states ( 4 )  -  skip_v; 

startime  =  0; 


end 


%  Find  the  states  at  the  highest  and  the  lowest  point  of 

orbit 

%  after  1st  skip 

for  ii  =  2: skip  points 

if  pass_time(i)  >  tstart 

if  skip_states_l ( ii , 5 )  <  0  &&  ... 

skip_states_l (ii-1, 5)  >  0  &&  ... 
skip_time_l ( ii )  >  (tstart  +  tmaneuver) 

skip_indexl  =  ii-1; 
reentry  =  [ ] ; 
break 

else 

reentry  =  1 ; 
gethigher  =  1; 

end 

else 

if  skip_states_l ( ii , 5 )  <  0  &&  skip_states_l (ii-1, 5) 

>  0 

skip_indexl  =  ii-1; 
reentry  =  []; 
break 

else 

reentry  =  1; 
gethigher  =  1; 

end 

end 

end 

if  isempty (reentry) 
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time_indexl  =  find  (abs  (sk;ip_timer_l  - 
sk;ip_time_l  ( sk;ip_indexl )  )  .  .  . 

==  min  (abs  (sk;ip_timer_l  -  sk;ip_time_l  ( skip_indexl )  )  )  )  ; 
skip  rp  =  min ( skip_states_l ( 1 : skip_indexl , 1 ) ) ; 
skip_ra  =  skip_states_l ( skip_indexl , 1 ) ; 

skip_rel_initial_states  =  skip_states  1 ( skip_indexl ,  : )  ; 
skip_dv2_l  =  skip_rel_initial_states ( 4 ) ; 


orbit 

later 


%  Propagate  orbit  foward  from  the  highest  point  of  the 
%  without  any  bank  to  find  the  max  latitude  in  order  to 


%  determine  the  correct  heading  angle  after  re¬ 
circularization 

bank  =  0; 
index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  [ ] ; 

Period  =  2*pi*sqrt  (skip_rel_initial_states  (1) ''3/mu)  ; 

[ skip_time_2 ,  skip_states_2 ]  = 
ode45 (@equations_of_motion_ODE45,  .  . . 

[0  2*Period] , skip_rel_initial_states , options)  ; 
maxlat  =  max ( skip_states_2 ( : , 3 ) ) ; 


planet)  by 
relative 
the 
above 


%  Find  the  circular  velocity ( relative  to  the  rotating 
%  setting  gamma  dot  =  0  and  solving  equation  3.66  for 
%  velocity.  For  derived  circular  velocity  iterate  to  find 
%  corresponding  heading  angle  given  the  max  lat  calculated 


%  Initialize  loop  variables 
kk  =  0; 

psides  =  skip_rel_initial_states ( 6 ) ; 
psi_orig  =  psides; 
dhead  =  0.01; 
loop  =  1; 


while  loop  ==  1 


%  Define  variable  used  in  Eg  3.66 
skipR  =  skip_rel_initial_states ( 1 ) ; 

skiptheta  =  skip_rel_initial_states (2 ) ; 

skipphi  =  skip  rel  initial  states  (3); 
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skipGamma 

skippsi 

skipSigma 

skipg 

skiprho 

skipCl 

skips 

skipm 


=  0.0; 

=  skip_rel_initial_states ( 6 )  ; 
=  deg2rad (bank) ; 

=  gO  * (Rearth/skipR) ^2 . 0 ; 

=  AtmosModel ( skipR-Rearth,  2 ) ; 
=  vehicle. Cl; 

=  vehicle. S; 

=  vehicle. m; 


%  Solve  for  velocity  in  equation  3.66 
A 

(1/ skipR) + ( (skiprho*skipCl*skipS) / (2*skipm) ) *cos (skipSigma) ; 

B  =  2*wearth*cos (skipphi) *cos (skippsi)  ; 

C  =  - (skipg*cos (skipGamma) ) + 

skipR*wearth'^2*cos  (skipphi)  *  (cos  (skipphi)  *cos  (skipGamma)  +sin  (skipphi)  *s 
in (skippsi) *sin (skipGamma) ) ; 

Vcirc2  =  (-B+ (B^2-4*A*C) ^0 . 5) / (2*A) ; 


%  Find  the  corresponding  Vcirc  and  heading  angle 

psinew  =  skippsi; 

done  =  0; 

cnt  =  0; 

skippsi  =  psides; 

while  (done  ==  0) 

cnt  =  cnt+1; 

done  =  1; 


A 

(1/ skipR) + ( (skiprho*skipCl*skipS) / (2*skipm) ) *cos (skipSigma) ; 

B  =  2 *wearth*cos ( skipphi ) *cos ( skippsi ) ; 

C  =  - (skipg*cos (skipGamma) ) + 

skipR*wearth^2 *cos (skipphi) * (cos (skipphi) *cos (skipGamma) +sin (skipphi) *s 
in (skippsi) *sin (skipGamma) ) ; 

Vcirc2  =  (-B+ (B^2-4*A*C)  ■^O  .  5)  /  (2*A)  ; 


psinew  =  psides  + 

asin (2*pi*skipR*sin (psides) / (86400*Vcirc2) ) ; 

if  (abs ( skippsi -psinew) >0.0000001) 
done  =  0; 

skippsi  =  psinew; 

end 


end 

skip_rel_initial_states ( 6 )  =  psinew; 
skip_rel_initial_states ( 4 )  =  Vcirc2; 
skip_rel_initial_states ( 5 )  =  0; 
skip_dv2  =  Vcirc2  -  skip_dv2_l; 


%  Propogate  Circular  Orbit  forward  in  time  for  2 

periods 

index  =  1; 
timer  =  [ ] ; 
bankplot  =  []; 
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acc  =  [ ] ; 

starttime  =  sk;ip_time_l  ( sk;ip_indexl )  ; 

[ sk;ip_time_2 ,  sk;ip_states_2  ]  = 
ode45 (@equations_of_motion_ODE45, [0 
2*Period]  ,  sk;ip_rel_initial_states ,  options)  ; 

skip_maxlat  =  max ( skip_states_2 ( : , 3 ) ) ; 


compare  to 
Break  out 
correct  max 


%  Compare  the  max  latitude  of  new  circular  orbit  and 
%  known  desired  max  latitude  of  non-circular  orbit. 

%  of  loop  once  the  initial  heading  angle  gives  the 


%  latitude 

if  skip_maxlat  >  maxlat  -  0.0001  &&  skip  maxlat  < 

maxlat  +  0.0001; 


break; 

end 


%  Algorithm  to  change  the  step  size  of  the  d-heading 

correction 

kk  =  kk+1; 

signchange  =  sign (skip_rel_initial_states (6) ) ; 
if  skip_maxlat  >  maxlat  &&  sign (psi_orig)  ==  signchange 
zeroin2(kk)  =  1; 

elseif  skip_maxlat  >  maxlat  &&  sign (psi_orig)  ~= 

signchange 

zeroin2(kk)  =  -1; 

elseif  skip_maxlat  <  maxlat  &&  sign (psi_orig)  == 

signchange 

zeroin2(kk)  =  -1; 

elseif  skip_maxlat  <  maxlat  &&  sign (psi_orig)  ~= 

signchange 

zeroin2 ( kk)  =  1 ; 

end 

if  kk  >  1 

if  zeroin2(kk)  ==  - zeroin2 ( kk- 1 ) 
dhead  =  dhead/2; 

end 

end 

if  kk  >  2 

if  zeroin2(kk)  ==  zeroin2 (kk-1)  &&  ... 

zeroin2(kk)  ==  -zeroin2 (kk-2) 
dhead  =  dhead/2; 

end 

end 


%  Correct  Psi  Desired  to  reach  the  correct  maximum 

latitude 

psil  =  skip_rel_initial_states ( 6 ) ; 

if  skip_maxlat  >  maxlat  &&  psil  >  0  &&  psil  <=  pi/2 
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psides  =  psides  -  dhead; 


elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

> 

0 

&& 

psil 

<=  pi/2 

elseif  skip  maxlat  > 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

< 

0 

&& 

psil 

<=  pi/2 

elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
-  dhead; 

&& 

psil 

< 

0 

&& 

psil 

<=  pi/2 

elseif  skip  maxlat  > 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

> 

0 

&& 

psil 

>  pi/2 

elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
-  dhead; 

&& 

psil 

> 

0 

&& 

psil 

>  pi/2 

elseif  skip  maxlat  > 
psides  =  psides 

maxlat 
-  dhead; 

&& 

psil 

< 

0 

&& 

psil 

>  pi/2 

elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

< 

0 

&& 

psil 

>  pi/2 

end 

if  kk  >  25 
break 

end 

end 

%  Calculate  the  change  in  inclination 
if  psil  >  pi/2 

skip_inclination  =  180  -  rad2deg (maxlat) ; 

else 

skip_inclination  =  rad2deg (maxlat) ; 

end 

skip  delta_i  =  skip_inclination  -  initialorbit . i ; 


%  Determine  if  new  orbit  changes  from  prograde  to 
retrograde  or 

%  vice  versa 

if  abs ( skip_rel_initial_states ( 6 ) )  <=  pi/2 
proretro  =  1; 

else 

proretro  =  -1; 

end 


%  Propogate  Circular  Orbit  forward  in  time  for  the  rest  of 

simtime 

index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  [ ] ; 

starttime  =  skip_time_l(skip_indexl); 

[ skip_time_2 , skip_states_2 ]  = 
ode45 (@equations_of_motion_ODE45, . . . 

[0  simtime  - 

starttime] , skip_rel_initial_states , options) ; 

skip  maxlat  =  max ( skip_states_2 ( : , 3 ) ) ; 
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skip  bankplot_2  =  bankplot; 
skip_gs_2  =  acc; 
skip_timer_2  =  timer; 


%  Concatenate 
circularization  data 

skip_time_2  = 
skip_timer_2 
skip_time_i  = 
1) , skip_time_2) ; 

skip_states_i 

1,  . 

skip_bankplot 


the  first  preskip  data  with  post 

skip_time  2  +  starttime; 

:  skip_timer_2  +  starttime; 
vertcat ( skip_time_l ( 1 : skip_indexl- 

=  vertcat ( skip_states_l (1 : skip_indexl- 

skip_states_2 ) ; 

i  =  horzcat ( skip_bankplot_l ( 1 : time_indexl- 


skip_bankplot_2 ) ; 

skip_timer_i  =  horzcat ( skip_timer_l ( 1 : time_indexl- 1 ),.. . 
skip_timer_2 ) ; 

skip  gs_i  =  horzcat ( skip_gs_l ( 1 : time_indexl- 1 ), skip_gs_2 ) ; 
skip_points  =  length ( skip_time_i ) ; 


%  Correct  Longitude  to  be  from  -180  to  180 
for  ii  =  1 : skip_points 

if  skip_states_i ( ii , 2 )  >  pi 

skip_states_i ( ii : end, 2 )  =  -(pi  -  ... 
( skip_states_i ( ii : end, 2 )  -  pi) ) ; 

elseif  skip_states_i ( ii : end, 2 )  <  -pi 

skip_states_i ( ii : end, 2 )  =  (pi  +  ... 

( skip_states_i ( ii : end, 2 )  +  pi) ) ; 

end 

end 

skip_lat_i  =  skip_states_i ( : , 3 ) ; 
skip_lon_i  =  skip_states_i ( : , 2 ) ; 


%  Calculate  the  lat/long  difference  and  distance  from  the 

groundtrack 

for  ii  =  l:skip  points 
skip_dlon ( ii )  = 

delta_longitude (rad2deg ( skip_states_i (ii, 2) ) , tgtlon) ; 
end 

skip_dlat  =  rad2deg ( skip_states_i ( : , 3 ) )  -  tgtlat; 
skip_dlon ( skip_points+l : end)  =  []; 
skip_dlat ( skip_pointstl : end)  =  []; 


longitude 

far 


%  Calculate  the  latitudinal  difference  from  each  target 
%  crossing  or  display  errors  if  new  groundtrack  doesn't  get 
%  enough 

[ skip_dlat_lon_i , skip_phi_i ]  =  ... 
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tgtlat) ; 


d_lat_at_lon_func ( skip_lon_i ,  skip_lat_i,  tgtlon. 


+ 


time ' ] ; 


if  length ( skip_dlat_lon_i )  <  i 

last_distance  =  acos (sin (skip_lat_i (end) ). *sind (tgtlat) 

cos (skip_lat_i (end) ) . *cosd (tgtlat) . *  ... 
cosd (skip_dlon (end) ) ) *Rearth; 
if  tsection ( 4 , 1 )  >  simtime 

if  skip  dv_i  <  0.001  &&  last_distance  >  10 

error_message  =  ['Pass  '  num2str(i)  '  cannot  be 

, 'reached  via  a  skip  maneuver  in  allotted 

disp (error_message) ; 

unable  =  1; 

break 

else 

skip_dlat_lon  =  dlat_lon ( i ) ; 
skip_phi  =  phi (i) ; 
gethigher  =  1; 

end 

else 

startlate  =  1; 
stayV  =  1; 

kcount  =  kcount  +  1; 
skip_dlat_lon  =  dlat_lon(i); 
skip_phi  =  phi (i) ; 

end 

elseif  k  >  21  &&  abs(skip  dlat_lon)  <  miss  tol*3 

error_message  =  ['Pass  '  num2str(i)  '  can  be  reached  ' 


, 'within  3*miss  toleranace  or  30  miles']; 
disp (error_message) ; 
break 

elseif  k  >  21  +  kcount 

error_message  =  ['Pass  '  num2str(i)  '  cannot  be  '  . 

, 'reached  with  k  <  20']; 
disp (error_message) ; 
unable  =  1; 
break 

elseif  max ( skip_gs_i )  >  15  &&  skip_dlat_lon  >  1 

error_message  =  ['Pass'  num2str(i)  '  cannot  be  '  .. 

, 'reached  within  g-limits']; 
disp (error_message) 
unable  =  1; 
break 

else 

startlate  =  0; 
stayV  =  0; 

if  orig_proretro  ==  1 

if  skip  rel_initial_states (2 )  >  deg2rad (tgtlon) 

if  (skip_rel_initial_states (2)  - 

deg2rad (tgtlon) )  <  deg2rad (22 . 5) 

dangerzone  =  1; 

else 
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o\°  o\° 


dangerzone  =  0; 

end 

else 

dangerzone  =  0; 

end 

else 

if  sk;ip^rel_initial_states  (2 )  <  deg2rad  (tgtlon) 

if  deg2rad  (tgtlon)  -  sk;ip_rel_initial_states  (2 ) 

<  deg2rad (22 . 5) 

dangerzone  =  1; 

else 

dangerzone  =  0; 

end 

else 

dangerzone  =  0; 

end 

end 

if  proretro  ~=  orig  proretro  &&  dangerzone  ==  1  && 
abs  ( sk:ip_rel_initial_states  ( 6 )  )  >  deg2rad(91) 

sk;ip_dlat_lon  =  sk;ip_dlat_lon_i  ( i  +  1 )  ; 
skip  phi  =  skip  phi_i(i+l); 

else 


skip_dlat_lon  =  skip_dlat_lon_i ( i ) ; 
skip_phi  =  skip  phi_i(i); 

end 

skip_lat_sign  =  sign (skip  phi) ; 
unable  =  [  ] ; 
gethigher  =  0; 

end 


%globe_plot2 (rel_states, skip_states_i ) 

%plotm ( [tgtlat  skip_phi] , [tgtlon  tgtlon], 'r') 
figure 

plot ( skip_timer_i , skip_bankplot_i ) 
end  %  End  if  skip  after  re-entry  section 


%  End  of  if  velocity  change  doesn't  get  vehicle  into  sensible 
%  atmosphere 

getlower  =  0; 

else 

getlower  =  1; 

getlower  count  =  getlower_count  +  1; 

end 


end  % - End  of  while  loop 


if  k  ==  0 

skip_gs_i  =  rel_gs; 
skip_states_i  =  rel_states; 
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skip_time_i  =  time; 

skip_overf lycount  =  skip_overf lycount  +  1; 

%  Interpolate  other  data  to  find  data  at  actual  pass 
[ skip_pass_states_i ,  skip_pass_time_i ]  =  ... 

states_at_lonpass ( skip_states_i ,  skip_time_i,  tgtlon)  ; 


%  Resize  array  size  for  saving  wanted  data  each  loop 
skip_points  =  length (time) ; 
numl(i)  =  skip_points ; 
if  i  >  1 

if  skip_points  <  max (numl ( 1 : i-1 ) ) 

skip_states_i (skip_points+l :max (numl (1 : i-1) ) , : )  =  ... 

zeros (max (numl ( 1 : i- 1 ) )  -  skip_points , 6 ) ; 

skip_time_i (skip_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i- 1 ) )  -  skip  points,!); 

elseif  skip  points  >  max (numl ( 1 : i- 1 ) ) 

skip_states (max (numl (1 : i-1) ) +1 : skip  points 1 : i- 1 )  = 

zeros ( skip_points  -  max (numl (1 : i-1) ) , 6, i-1) ; 
skip_time (max (numl ( 1 : i- 1 )) +1 : skip  points , 1 : i- 1 )  =  ... 
zeros ( skip_points  -  max (numl ( 1 : i-1 )),  i-1 )  ; 

end 

end 

skip_states ( : ,  : , skip_overf lycount)  =  skip_states_i ( : ,  : )  ; 
skip_dv (skip_overflycount)  =  0; 
transfer_dv (skip_overflycount)  =  0; 
skip_time ( : , skip  overf lycount)  =  skip_time_i; 
skip_pass_states (skip_overflycount, :)  = 
skip_pass_states_i (i,  : ) ; 

skip  pass_time (skip_overflycount)  =  skip  pass_time_i ( i ) ; 


%  Save  all  wanted  data  into  "test"  variable 
skipcount  =  planecount  +  skip_overf lycount; 
test (skipcount, 1)  =  test_num; 

=  run; 

=  tgtlat; 

=  tgtlon; 


test (skipcount, 2) 
test (skipcount, 3) 
test (skipcount, 4) 


test (skipcount, 5)  =  bank; 

test (skipcount, 6)  =  initialorbit . a; 


test (skipcount, 7) 
test (skipcount, 8) 


=  initialorbit . e; 

=  initialorbit.!; 
test (skipcount, 9)  =  initialorbit . RAAN; 
test (skipcount, 10)  =  initialorbit .AoP; 


test (skipcount, 11) 
test (skipcount, 12) 
test (skipcount, 13) 
test (skipcount, 14) 
test (skipcount, 15) 
test (skipcount, 16) 
test (skipcount, 17) 
test (skipcount, 18) 


=  initialorbit . nu; 

=  initial_states ( 4 ) ; 

=  rad2deg ( initial_states 
=  rad2deg ( initial_states 
=  n_point; 

=  e_point; 

=  w_point; 

=  s  point; 


(3) 

(2) 
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test (skipcount, 19) 
test (skipcount, 20) 
test (skipcount, 21) 
test (skipcount, 22) 
test (skipcount, 23) 
test (skipcount, 24) 
test (skipcount, 25) 
test (skipcount, 26) 
test (skipcount, 27) 
test (skipcount, 28) 
test (skipcount, 29) 
test (skipcount, 30) 
test (skipcount, 31) 
test (skipcount, 32) 
test (skipcount, 33) 
test (skipcount, 34) 
test (skipcount, 35) 
test (skipcount, 36) 
test (skipcount, 37) 
test (skipcount, 38) 
test (skipcount, 39) 
test (skipcount, 40) 
test (skipcount, 41) 
test (skipcount, 42) 
Rearth) *lambda/D; 


else 


if  isempty ( skip  error) 


n_time; 

e_time; 

w_time; 

s_time; 

3; 


i; 

0; 

skip 

0; 

0; 

0; 

0; 

0; 

0; 

0; 

rel_ 
rel_ 
rel_ 
rel_ 
rel_ 
rel 
max  ( 
0; 

2.44 


pass  time (skip  overflycount) ; 


states  ( 1 ) ; 

states  ( 1 ) ; 

states ( 1 ) ; 

states  ( 1 )  - 

Rearth; 

states  ( 1 )  - 

Rearth; 

states  ( 1 )  - 

Rearth; 

skip_gs_i) ; 

* ( skip_pass_states (skip_overflycount, 1) 


%  Dipslay  error  if  calculate  overflight  breaks  g-limitation 
if  max (skip  gs  i)  >  10 

error_message  =  ['WARNING!  Pass  '  num2str(i)  '  cannot  be  ' 
,' reached  within  g-limits']; 
disp (error_message) ; 

end 


if  isempty (unable)  %  Only  perform  if  successful  overflight 
achieved 


skip_overf lycount  =  skip_overf lycount  +  1; 

%  Find  the  velocity  needed  to  re-circularize  at  the  original 

orbit 

rO  =  initial_states  ( 1 ) ; 

skip_transf er_dv_guess  =  sqrt (mu/skip_ra  -  mu/ (skip_ra  +  rO) 

-  sqrt (mu/skip_ra  -  mu/ ( skip_ra+skip_rp) ) ; 
skip_ra2  =  skip_ra; 
skip_r_tol  =  0.1; 
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jj  =  0; 

transfer_initial_states  =  sk;ip_rel_initial_states ; 

transf  er_initial_states  ( 4 )  =  sk;ip_rel_initial_states  ( 4 )  +  ... 

sk;ip_transf  er_dv_guess ; 
sk;ip_transf  er_dv  =  0.03; 

while  skip_ra2  >  rO  +  skip_r_tol  | |  skip_ra2  <  rO  -  skip_r_tol 


index  =  1; 
timer  =  [ ] ; 
bankplot  =  [ ] ; 
acc  =  [ ] ; 

[skip_time_t, skip_states_t]  = 
ode45 (@equations_of_motion_ODE45,  .  .  . 

[0  simtime  - 

starttime] , transf er_initial_states ,  options)  ; 

skip_ra2  =  max ( skip_states_t ( : , 1 ) ) ; 

%  Algorithm  to  change  the  step  size  of  the  dv 


correction 


jj  =  jj+1; 

if  skip_ra2  >  rO 

zeroin ( j  j )  =  1 ; 

else 


zeroin(jj)  =  -1; 

end 

if  jj  >  1 

if  zeroin(jj)  ==  - zeroin ( j j -1 ) 

skip_transf er_dv  =  skip_transfer_dv/2 ; 

end 


end 


if  jj  >  2 

if  zeroin(jj)  ==  zeroin(jj-l)  &&  zeroin(jj)  ==  - 

zeroin  ( j  j -2 ) 

skip_transf er_dv  =  skip_transfer_dv/2 ; 

end 


end 


if  skip  ra2  <  rO 

transf er_initial_states ( 4 )  =  transf er_initial_states ( 4 ) 
skip_transf er_dv; 

else 

transf er_initial_states ( 4 )  =  transfer_initial_states ( 4 ) 
skip_transf er_dv; 

end 

end 

transf er_states_index  =  f ind ( skip_states  t  ==  skip_ra2); 
transf er_states  =  skip_states_t (transfer_states_index, : ) ; 


%  Define  variable  used  in  Eq  3.66 
transfer  R  =  transfer  states (1); 
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transf er_theta 
transf er_phi 
transf er_Gamma 
transf er_psi 
transf er_Sigma 
transf er_g 
transf er_rho 
transf er_Cl 
transfer  S 
transfer  m 


=  transfer_states (2 ) ; 

=  transfer_states  ( 3 ) ; 

=  0.0; 

=  transf er_states ( 6 ) ; 

=  deg2 rad (bank) ; 

=  gO  * (Rearth/transfer_R) ^2 . 0 ; 

=  AtmosModel (transf er_R-Rearth,  2 ) ; 
=  vehicle. Cl; 

=  vehicle. S; 

=  vehicle. m; 


%  Solve  for  velocity  in  equation  3.66 
A 

(1/ transfer_R) + ( (transfer_rho*transfer_Cl*transfer_S) / (2*transfer_m) ) *c 
os (transf er_Sigma) ; 

B  =  2*wearth*cos (transfer_phi) *cos (transfer_psi)  ; 

C  =  -(transfer  g*cos (transfer  Gamma) )+ 

transfer_R*wearth^2*cos (transfer_phi) * (cos (transfer_phi) *cos (transfer_G 
amma) +sin (transfer_phi) *sin (transfer  psi) *sin (transfer_Gamma) ) ; 
transfer  Vcirc  =  (-B+ (B^2-4*A*C) '^0 . 5)  /  (2*A)  ; 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[ skip_pass_states_i ,  skip_pass_time_i ]  =  ... 

states_at_lonpass ( skip_states_i ,  skip_time_i,  tgtlon) ; 


%  Resize  array  size  for  saving  wanted  data  each  loop 
numl(i)  =  skip_points; 
if  i  >  1 

if  skip  points  <  max (numl ( 1 : i-1 ) ) 

skip_states_i (skip_points+l :max (numl (1 : i-1) ) , : )  =  ... 

zeros (max (numl ( 1 : i- 1 ) )  -  skip_points , 6 ) ; 

skip_time  i (skip_points+l :max (numl (1 : i-1) ) )  =  ... 
zeros (max (numl ( 1 : i- 1 ) )  -  skip_points , 1 ) ; 

elseif  skip  points  >  max (numl ( 1 : i- 1 ) ) 

skip_states (max (numl ( 1 : i- 1 ) ) +1 : skip_points , : , 1 : i- 1 )  = 

zeros ( skip_points  -  max(numl(l:i-l)),6,i-l); 
skip_time (max (numl ( 1 : i- 1 )) +1 : skip_points , 1 : i- 1 )  =  ... 
zeros ( skip_points  -  max (numl ( 1 : i-1 )),  i-1 )  ; 

end 

end 

skip_states  ( : ,  : ,  skip_overf  lycount)  =  skip_states__i  ( : ,  : )  ; 
skip_dv (skip_overflycount)  =  skip_dvl  +  skip_dv2; 
transfer_dv (skip_overflycount)  =  (transfer_Vcirc  -  ... 

transf er_states ( 4 ) )  +  (transfer_initial_states (4 )  -  ... 

skip_dv2_l)  +  skip_dvl; 
skip_time ( : , skip  overf lycount)  =  skip_time_i; 
skip_pass_states (skip_overflycount,  :)  = 
skip_pass_states_i (i, : ) ; 

skip_pass_time (skip_overflycount)  =  skip_pass_time_i ( i ) ; 
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Rearth; 


%  Save  all  wanted  data  into  "test"  variable 

skipcount  =  planecount  +  skip_overf lycount; 

test (skipcount, 1)  =  test_num; 

test (skipcount, 2)  =  run; 

test (skipcount, 3)  =  tgtlat; 

test (skipcount, 4)  =  tgtlon; 

test (skipcount, 5)  =  bank; 

test (skipcount, 6)  =  initialorbit . a; 

test (skipcount, 7)  =  initialorbit . e; 

test (skipcount, 8)  =  initialorbit . i ; 

test (skipcount, 9)  =  initialorbit . RAAN; 

test (skipcount, 10)  =  initialorbit .AoP; 

test (skipcount, 11)  =  initialorbit . nu; 

test (skipcount, 12)  =  initial_states ( 4 ) ; 

test (skipcount, 13)  =  rad2deg ( initial_states ( 3 ) ) ; 

test (skipcount, 14)  =  rad2deg (initial_states (2) ) ; 

test (skipcount, 15)  =  n_point; 

test (skipcount, 16)  =  e_point; 

test (skipcount, 17)  =  w_point; 

test (skipcount, 18)  =  s_point; 

test (skipcount, 19)  =  n_time; 

test (skipcount, 20)  =  e_time; 

test (skipcount, 21)  =  w_time; 

test (skipcount, 22)  =  s_time; 

test (skipcount, 23)  =  3; 

test (skipcount, 24)  =  i; 

test (skipcount, 25)  =  startime; 

test (skipcount, 26)  =  skip_pass_time (skip_overflycount)  ; 
test (skipcount, 27)  =  skip_dvl; 
test (skipcount, 28)  =  skip_dv2; 

test (skipcount,  29)  =  transf er_initial_states ( 4 )  -  skip_dv2_l; 

test (skipcount, 30)  =  transf er_Vcirc  -  transfer_states ( 4 ) ; 

test (skipcount, 31)  =  skip_dv (skip_overflycount) ; 

test (skipcount, 32)  =  transfer_dv (skip_overflycount) ; 

test (skipcount, 33)  =  skip_delta_i ; 

test (skipcount, 34)  =  skip_rp; 

test (skipcount, 35)  =  skip_ra; 

test (skipcount, 36)  =  skip_pass_states (skip_overflycount,  1) ; 
test (skipcount, 37)  =  skip  rp  -  Rearth; 
test (skipcount, 38)  =  skip_ra  -  Rearth; 

test (skipcount, 39)  =  skip_pass_states (skip_overflycount,  1)  - 

test (skipcount, 40)  =  max ( skip_gs_i ) ; 
test (skipcount, 41)  =  0; 


test (skipcount, 42)  = 

2.44* (skip  pass  states (skip  overf lycount, 1 ) -Rearth) *lambda/D; 


%globe_plot2 (rel_states, skip_states_i ) 
%f igure 

%plot(skip  timer  i,skip  gs  i) 


end 


end 

end 
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end 


Display  Results 


if  abs (tgtlat)  <=  initialorbit . i 

TOA_vs_dV_all (phase  pass_time, phase_dv, plane  pass  time, plane_dv, skip  pa 

ss_time, skip_dv, skip_pass_time, transf er_dv, bank_angle) 

else 

T0A_vs_dV_2 (plane  pass_time, plane_dv, skip  pass  time, skip_dv, skip  pass_t 

ime, transfer  dv,bank  angle) 

end 

toe 


testnum  =  streat ( ' Test_' , num2str (test_num) ) ; 
runnum  =  streat (' Run_' , num2str (run) ) ; 

%if  isempty (direetory) 

folderl  =  ['C:\Users\user\Doeuments\MATLAB\Thesis\Thesis 
Figures! ' , testnum] ; 

mkdir ( ' C : \Users\user\Doeuments\MATLAB\Thesis\Thesis 
Figures ' , testnum) 

mkdir ( folderl , 'TOAvsDV') 
mkdir ( folderl , ' Original_GT ' ) 

Toa_folder  =  [ folderl ,' \TOAvsDV '] ; 
org_folder  =  [ folderl ,' \Original_GT '] ; 
direetory  =  1 ; 

%end 

figl  =  (run) *2-1; 
fig2  =  (run) *2 ; 

TOAfilename  =  [Toa_folder  ,'\'  runnum,  '_TOAvsDV.jpg']; 
orgfilename  =  [org_folder  ,'\'  runnum,  '_Orig_GT.jpg']; 
saveas (figl, orgfilename) 
saveas (fig2, TOAfilename) 

end 

totaleount  =  skipeount; 
end 


%  Save  the  test  data  in  both  exeel  and  matlab  formats 
testnum  =  streat (' Test_' , num2str (test_num) ) ; 

testheader  =  {'Test  #',  'Run  #',  'Target  Lat ' ,  'Target  Long',  'Bank 
Angle  (deg) ' ,  ... 

'a',  'e',  'i',  '  RAAN '  ,  'AoP',  'True  Anamoly',  'Initial  V,  ... 

'Initial  Latitude',  'Initial  Longitude',  'N  dist',  'E  dist',  'W 
dist ' ,  ... 
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'S  dist',  'N  time',  'E  time',  'W  time',  'S  Time',  'type',  'Pass  #', 

'Start  Time',  'ToA',  'dvl',  ' dv2 ' ,  'dv3',  'dv4',  'dvtotal  1', 

' dvtotal  2 ' ,  ... 

'Inc  Change',  'Perigee  R',  'Apogee  R',  'Overflight  R',  'Perigee 

Alt',  ... 

'Apogee  Alt',  'Overglight  Alt',  'Max  G''s',  'Heat  Flux',  'Ground 
Res' } ; 

testdata  =  strcat ( ' \ ' ,  testnum, ' data ' , ' . xls ' ) ; 

testdata2  =  strcat (' \  '  ,  testnum,  ' data ','. mat ') ; 

folder2  =  [folderl,  testdata]; 

folders  =  [folderl,  testdata2]; 

xlswrite (folder2, testheader) 

xlswrite (folder2, test, 1, 'A2') 

save (folders, ' test ' ) 


Optimal_Overfly_Inputs .m 

function  Optimal_Overf ly_Inputs 
global  tgtlat  tgtlon  initialorbit  startdate  simtime  vehicle 


00000000000000000000000000000000000000000000000000000000000000000000000 

g,  g,  g,  g, 
o  o  o  0 


%  Target  Location 

%  tgtlat  =  S5. 696216; 

%  tgtlon  =  51.422945; 

tgtlat  =  42;  %  Target  Latitude  (deg),  N  positive 

tgtlon  =  -90;  %  Target  Longitude  (deg),  E  positive 


%  Initial  Orbit  Classical 
initialorbit . a  =  6878; 
initialorbit . e  =  0; 
initialorbit.!  =  45; 
initialorbit . RAAN  =  -24; 
(deg) 

initialorbit .AoP  =  0; 
initialorbit . nu  =  0; 


Elements 

%  Semi-Major  Axis  (km) 

%  Eccentricity  (0-1) 

%  Inclination  (deg) 

%  Right  Ascension  of  the  Ascending  Node 

%  Argument  of  Perigee  (deg) 

%  True  Anamoly  (deg) 


%  Simulation  Start  Date 
startdate . year  =  2017; 
startdate .month  =  4; 
startdate . day  =  11; 
startdate . hour  =  16; 
startdate .min  =  0; 
startdate . sec  =  0; 


and  Time 

%  Simulation 
%  Simulation 
%  Simulation 
%  Simulation 
%  Simulation 
%  Simulation 


start  year 
start  month  (1-12) 
start  day  (1-31) 
start  hour  (1-23) 
start  minute  (1-59) 
start  second  (1-59) 


%  Simulation  Run  Time 

sim_time.day  =0;  %  #  of  whole  days 

sim  time. hour  =  24;  %  #  of  whole  hours  (1-23) 
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sim_time .min  =  0 ; 
sim  time. sec  =  0; 


%  #  of  whole  minutes  (1-59) 
%  #  of  whole  seconds  (1-59) 


%  Vehicle  Parameters 
vehicle. m  =  5000; 
vehicle. S  =  le-5; 
vehicle. Cl  =  3; 
vehicle. Cd  =  0.5; 


%  Vehicle  mass  (kg) 

%  Vehicle  planform  area  (km) 

%  Vehicle  max  lift  coefficient 
%  Vehicle  drag  coefficient 


simtime 


sim_time . day* 8 6400  + 


sim  time. hour  * 


3600  +  sim  time.min*60 


+sim  time. sec; 


del ta_longi tude . m 


function  [  dlon  ]  =  delta_longitude (  lonl,  lon2  ) 

%  This  function  finds  the  difference  between  two  longitudinal  points 
%  taking  into  account  the  international  date  line. 

%  Inputs:  lonl  --  longitude  of  point  1  (degrees) 

%  lon2  --  longitude  of  point  1  degrees) 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

g,  g,  g,  g, 
o  o  0  o 

%  Outputs:  d_lon  --  the  longitudinal  difference,  lonl  east  of  lon2  is 
%  defined  as  positive  (degrees) 

Q-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

9-  9-  9-  9- 
0  o  o  o 


if  lonl  >  0  &&  lon2  <  0 

dlon  =  -360  t  (lonl  -  lon2); 
elseif  lonl  <  0  &&  lon2  >  0 

dlon  =  360  t  (lonl  -  lon2); 

else 

dlon  =  lonl  -  lon2; 

end 

if  dlon  <  -180 

dlon  =  dlon  +  360; 
elseif  dlon  >  180 

dlon  =  dlon  -  360; 

end 


end 
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d_lat_at_lon .  m 

function  [  d_lat,  phi  ]  =  d_lat_at_lon_func (  Ion,  lat,  tgtlon,  tgtlat  ) 
%  This  function  finds  the  latitudinal  difference  of  each  target 
longitude 

%  pass  at  the  point  where  the  profile  overflight  path  is  the  same  as 
the 

%  target  longitude 


%  Inputs:  Ion  (profile  longitude  in  radians) 

%  lat  (profile  latitude  in  radians) 

%  tgtlat  (target  latitude  in  degrees) 

%  tgtlon  (target  longitude  in  degrees) 

9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 


0,0,  0,0, 
o  o  o  o 


%  Outputs; 
longitude 


q, 

o 

q, 

0 


longitude 

q, 

0 


d_lat  (the  latitudinal  difference  in  degrees  of  each 
passing . ) 

phi  (the  latitude  of  the  current  pass  at  the  target 
used  for  diagnostic  purposes) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

g,  g,  g,  g, 
o  o  0  o 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

9-  9-  9-  9- 
0  0  0  0 


lat  =  rad2deg (lat) ; 
Ion  =  rad2deg (Ion) ; 


%  Find  longitude  difference  of  each  data  point 
for  i  =  1 : length (Ion) 

dlon(i)  =  delta_longitude (Ion (i) , tgtlon) ; 

end 


%  Find  all  target  longitude  crossing  data  points 

loncount  =  0; 

for  i  =  2 : length (dlon) 

if  dlon(i-l)  <  0  &&  dlon(i)  >  0  &&  abs(dlon(i))  <  90; 
loncount  =  loncount  +  1 ; 
lonpass^index (loncount)  =  i; 

elseif  dlon(i-l)  >  0  &&  dlon(i)  <  0  &&  abs(dlon(i))  <  90; 
loncount  =  loncount  +  1; 
lonpass_index (loncount)  =  i; 

end 

end 


Use  a  linear  interpolation  to  find  the  latitudinal  difference  at  each 
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%  longitude  pass 
for  i  =  l:loncount 

m  =  ( Ion ( lonpass_index ( i ) )  - 

( lat ( lonpass_index ( i ) )  - 

phi(i)  =  lat ( lonpass_index ( i ) 
Ion ( lonpass_index (i) ) ) /m; 

d_lat(i)  =  phi(i)  -  tgtlat; 

end 


Ion ( lonpass_index (i) 
lat  ( lonpass_index (i) 
)  t  (tgtlon  - 


1)  )  / 
1)  )  ; 


end 


d  Ion  at  lat.m 


function  [  d_lon,  theta 

) 


d  Ion  at  lat  func (  Ion, 


lat,  tgtlon,  tgtlat 


%  This  function  finds  the  longitudinal  difference  of  each  target 
latitude 

%  pass  at  the  point  where  the  profile  overflight  path  is  the  same  as 
the 

%  target  latitude 


%  Inputs:  Ion  (profile  longitude  in  radians) 

%  lat  (profile  latitude  in  radians) 

%  tgtlat  (target  latitude  in  degrees) 

%  tgtlon  (target  longitude  in  degrees) 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 

9-  9-  9-  9- 
0  0  0  0 

%  Outputs:  d_lon  (the  longitudinal  difference  in  degrees  of  each 
latitude 

%  passing . ) 

%  theta  (the  longitude  of  the  current  pass  at  the  target 

latitude 


used  for  diagnostic  purposes) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 


lat  =  rad2deg (lat) ; 
Ion  =  rad2deg (Ion) ; 


%  Find  latitude  difference  of  each  data  point 
dlat  =  lat  -  tgtlat; 


%  Find  all  target 


latitude  crossing  data  points 
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latcount  =  0; 

for  i  =  2 : length (dlat) 

if  dlat(i-l)  <  0  &&  dlat(i)  >  0 
latcount  =  latcount  +  1; 
latpass_index (latcount)  =  i; 
elseif  dlat(i-l)  >  0  &&  dlat(i)  <  0 
latcount  =  latcount  t  1; 
latpass_index (latcount)  =  i; 

end 

end 


Use  a  linear  interpolation  to  find  the  long 


_L  L.  UU-J-ilO. -L  U. -L  J- J- ti -L  ti; i  1 L- ti 


each 
%  latitude  pass 
for  i  =  1: latcount 

m  =  ( lat ( latpass_index ( i ) )  -  lat ( latpass_index ( i ) 

( Ion ( latpass_index ( i ) )  -  Ion ( latpass_index ( i ) 

theta (i)  =  Ion ( latpass_index ( i ) )  +  (tgtlat  - 

lat ( latpass_index (i) ) ) /m; 

if  theta (i)  >  0  &&  tgtlon  <  0 

d_lon(i)  =  -360  t  (theta (i)  -  tgtlon); 
elseif  theta (i)  <  0  &&  tgtlon  >  0 

d_lon(i)  =  360  t  (theta (i)  -  tgtlon); 

else 

d  lon(i)  =  theta (i)  -  tgtlon; 


1)  )  / 
1) )  ; 


end 

if  d_lon(i)  <  -180 

d_lon(i)  =  d_lon(i 
elseif  d_lon(i)  >  180 
d_lon(i)  =  d_lon(i 

end 


)  t 


360; 

360; 


end 


end 


equations_of_motionODE45 .m 

function  [  rel_states  ]  =  equations  of_motion_ODE45 (  t,F0  ) 

%  Equtions  of  Motion  for  use  with  ODE  45.  Using  a  initial  state,  (FO), 
and 

%  specified  time,  t  ODE  45  propogates  the  states  forward  for  the 
specified 

%  time  using  the  the  rotating  earth  equations  of  motion  found  in  Hick's 
%  Eqs  12.1-  12.3  and  12.16  -  12.18 

q, 

0 

%  Inputs :  FO (1-6)  : 

%  1 .  R  ( km) 

%  2.  Longitude  (rads),  E  positive 

%  3.  Latitude  (rads),  N  positive 
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%  4.  Velocity  (km/s) 

%  5.  Flight  Path  Angle  (rads) 

%  6.  Heading  Angle  (rads) 

%  t:  time  range  (sec) 

9-9-9-9-9-9-9-9-9-9-9-5-9-Q-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000 

g,  g,  g,  g, 
o  o  0  o 


%  Outputs:  rel_states (1-6) 

%  1 .  R  ( km) 

%  2.  Longitude  (rads),  E  positive 

%  3.  Latitude  (rads),  N  positive 

%  4.  Velocity  (km/s) 

%  5.  Flight  Path  Angle  (rads) 

%  6.  Heading  Angle  (rads) 

9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-Q-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  Assumptions: 

%  -  2  Body  Dynamics 

%  -  Lift  perpendicular  to  velocity 

%  -  Drag  parallel  to  velocity 

%  -  Mass  is  constant 

%  -  CL/CD  is  constant 

global  gO  rhoO  Beta  Rearth  wearth  vehicle  bank  inc_sign  flagge 
f lagger2 

global  bank_ode  index  bankplot  timer  switchtime  acc 


timer (index)  =  t; 

mass  (kg) 

planform  area  (km^2) 
lift  coefficient 
drag  coefficient 

ease  of  use  in  equations 

R  =  FO (1)  ; 

Ion  =  FO  (2)  ; 
lat  =  FO  (3) ; 

V  =  FO (4)  ; 
fpa  =  FO  (5)  ; 
heading  =  FO ( 6 ) ; 


m  =  vehicle. m;  % 
S  =  vehicle. S;  % 
Cl  =  vehicle. Cl;  % 
Cd  =  vehicle. Cd;  % 

%  Re-write  Initial  States  for 


%  Calculate  conditions  at  current  altitude  location 

h  =  R  -  Rearth; 

rho  =  AtmosModel (h, 2 ) ; 

D  =  rho*Cd*S*V'^2/2; 

L  =  rho*Cl*S*V'^2/2; 
g  =  gO * (Rearth/R) ^2 ; 
time  =  t; 

bank_ode  =  deg2rad (bank) ; 
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%  Select  Bank  angle 
%  if  flaggerl  ==  flagger2 
%  if  lat  >  deg2rad (25) 

%  bank_ode  =  -deg2rad (bank) ; 

%  flagger2  =  1; 

%  switchtime  =  t; 

%  elseif  lat  <=  deg2rad(25) 

%  bank_ode  =  deg2rad (bank) ; 

%  flagger2  =  2; 

%  switchtime  =  t; 

%  elseif  inc_sign  >  0  &&  heading  <  0 

%  bank_ode  =  -deg2rad (bank) ; 

%  flagger2  =  3; 

%  switchtime  =  t; 

%  elseif  inc_sign  <  0  &&  heading  <  0 

%  bank_ode  =  deg2rad (bank) ; 

%  flagger2  =  4; 

%  switchtime  =  t; 

%  end 

%  elseif  isempty ( flaggerl ) 

%  bank_ode  =  0; 

%  elseif  timer (index)  >  switchtime  +  200 
%  flaggerl  =  flagger2; 

%  end 

%  if  heading  <  .15  &&  heading  >  -0.15 
%  bank_ode  =  0 ; %-deg2rad (bank) ; 

%  end 

bankplot ( index)  =  bank  ode; 


%  Find  g-loading 

av  =  D/m  +  g*sin(fpa); 

al  =  -L/m  -  (V^2/R  -  g) *cos (fpa) ; 

acc  (index)  =  sqrt(av^2  +  al''2)/g; 


%  velocity  acc 
%  lift  acc 
%  total  decelration 


%  Write  Equations  of  Motion  (Eqs  12.1  -  12.6) 
dR  =  V*sin(fpa); 

dlon  =  V*cos (fpa) *cos (heading) / (R*cos (lat) ) ; 
dlat  =  V*cos (fpa) *sin (heading) /R; 

dV  =  -D/m  -  g*sin(fpa)  +  R*wearth^2*cos (lat) * (cos (lat) *sin (fpa) . . . 

-  sin  (lat) *sin (heading) *cos (fpa) ) ; 

dfpa  =  (1/V) * (L/m*cos (bank_ode)  -  g*cos(fpa)  +  V^2/R*cos (fpa)  +  ... 

2*V*wearth*cos (lat) *cos (heading)  +  R*wearth^2*cos (lat) * (cos (lat) 
*cos(fpa)  +  sin  (lat) *sin (heading) *sin (fpa) )) ; 
dheading  =  (1/V) * (L*sin (bank_ode) / (m*cos (fpa) )  - 
V''2/R*cos  (fpa)  *cos  (heading)  .  .  . 

*tan(lat)  +  2*V*wearth* (sin (heading) *cos (lat) *tan (fpa)  -  sin  (lat 

-  R*wearth’^2 /cos  (fpa)  *sin  (lat)  *cos  (lat)  *cos  (heading)  )  ; 


index  =  index  +  1; 
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rel_states= [dR; dlon; dlat; dV; dfpa; dheading]  ; 
return 


AtmosModel . m 

function  [Rho]  =  AtmosModel (h_gd, AtmosModel_Cho ice) 
global  Rearth  Beta  rhoO 

WGS84Constants;  %Loads  global  constants  from  external  m-file 

%Note:  AtmosModel_Choice 

%1  =  Exponential  density  model 

%2  =  Combined  density  model  (similar  to  MSIS  model) 

Q-Q-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

0,0,  0,0, 

0  0  0  0 

%%  Exponential  Density  Model  (kg/km^'S) 
if  AtmosModel_Choice  ==  1 

Rho  =  rhoO . *exp ( -Beta . *h_gd) ; 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000000000 


0,0,  0,0, 

0  o  o  o 

%%  Combined  Density  Model  (kg/km''3) 
%Note:  Exponential  Model: 

%  Scale  Height  (vl)  Variation  Model: 

%  Power  Model: 


h  <  8  4  km 
84  <=  h  <=  120 

121  <=  h  <=  1000 


km 

km 


elseif  AtmosModel_Choice  ==  2 
%Reference  altitude  (km) 
hi  =  [67;  85;  99;  110]  ; 


%Reference  density  (kg/km^'S) 

Rho  i  =  [1.4975e-4;  7.726e-6;  4.504e-7;  5.930e-8] 


*  (1000)  ^'3; 


%Reference  scale  height  (km) 

Hi  =  [6.6597;  4.979;  5.905;  8.731]; 


%Reference  molecular  scale  temperature  (K) 
TMi  =  [222.8;  165.7;  195.6;  288.2]; 


%Atmospheric  constant  (K/km) 

Constant  A  =  [0.1296385;  0.1545455;  0.1189286;  0.5925240]; 


%Atmospheric  constant  (K/km) 

Constant  B  =  [4.044231;  0.0;  3.878571;  19.17964]; 


%Dimensionless  parameters 

deltaH  =  (Constant  A.*Rearth) ./Hi; 
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deltaTM  =  (Constant_B. *Rearth) . /TMi; 

%Altitude  Sections 

if  h_gd  <=  84  %Section  1:  Exponential  model 

Rho  =  rhoO . *exp ( -Beta . *h_gd) ; 

elseif  h_gd  >  84  &&  h_gd  <=  90  %Section  2:  Single  Variation 

Rho  =  Rho_i  (2).*((1./(1  +  deltaH  (2  )  .  *  (  (h_gd  -  h_i  (2  )  )  .  /Rearth)  )  )  . 

((1  +  Constant_A (2 ) ) . /Constant_A (2 ) ) ) ; 

elseif  h_gd  >  90  &&  h_gd  <=  106  %Section  3:  Single  Variation 

Rho  =  Rho_i  ( 3 )  .  *  (  ( 1 .  /  ( 1  +  deltaH  ( 3 ).*(  (h_gd  -  h_i  ( 3 )). /Rearth)  )). '^ 

((1  +  Constant_A ( 3 ) ) . /Constant_A ( 3 ) ) ) ; 

elseif  h_gd  >  106  &&  h_gd  <=  120  %Section  4:  Single  Variation 

Rho  =  Rho_i  (4).*((1./(1  +  deltaH  ( 4  )  .  *  (  (h_gd  -  h_i  ( 4  )  )  .  /Rearth)  )  )  . 

((1  +  Constant_A ( 4 ) ) . /Constant_A ( 4 ) ) ) ; 

elseif  h_gd  >  120  &&  h_gd  <=  1000  %Section  5:  Power  Model 

Rho  =  (  (4. 50847623E7)  .*(  (h_gd)  (-7.44605852)  )).*(  (1000)  "'3)  ; 

%Note;  'Power  Model'  formulated  with  altitude  in  units  of  (km)  and 
%  the  output  density  in  (kg/m’^3) 

else  %if  h_gd  >  1000; 

Rho  =  0 ; 

end 

end 


bank_section . m 

function  [  banksign,  section  ]  =  bank_section (psi ,  lat,  dlat,  tgtlat) 

%  This  function  determines  the  optimal  portion  of  an  orbit  to  perform  a 
%  bank  maneuever  in  order  to  shift  the  orignal  ground  track  in  the 
dedired 
%  location 


%  Inputs:  psi 

q, 

0 

%  lat 


longitude 

o 

0 

q, 

o 

q, 

0 


dlat 


heading  angle  of  the  current  ground  track  at  the  same 
longitude  as  the  target 

latitude  of  the  current  ground  track  at  the  same 
as  the  target 

latitude  difference  of  the  ground  track  to  the  target 
(positive  is  defined  as  ground  track  north  of  target) 


Q-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-Q- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


g,  g,  g,  g, 
0  o  0  o 
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o\°  o\°  o\0 


Outputs:  banksign 
section 


--  (+)  for  right  bank,  (-)  for  left  bank 

--  the  optimal  ground  track  section  to  perfrom  bank 
maneuver 

Q-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-Q-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 


dlat  =  -dlat; 
if  psi  <=  90 

if  sign(lat)  ==  sign(tgtlat) 

if  psi  >  0  &&  lat  >  0  &&  dlat  >  0 
section  =  [2  4 ] ; 

elseif  psi  >  0  &&  lat  >  0  &&  dlat  <  0 
section  =  [4  2 ] ; 

elseif  psi  <  0  &&  lat  >  0  &&  dlat  >  0 
section  =  [3  1 ] ; 

elseif  psi  <  0  &&  lat  >  0  &&  dlat  <  0 
section  =  [1  3] ; 

elseif  psi  <  0  &&  lat  <  0  &&  dlat  >  0 
section  =  [4  2 ] ; 

elseif  psi  <  0  &&  lat  <  0  &&  dlat  <  0 
section  =  [2  4 ] ; 

elseif  psi  >  0  &&  lat  <  0  &&  dlat  >  0 
section  =  [1  3] ; 

elseif  psi  >  0  &&  lat  <  0  &&  dlat  <  0 
section  =  [3  1 ] ; 


end 

elseif  sign (lat)  ~=  sign(tgtlat) 
if  psi  >  0  &&  lat  >  0 
section  =  [3  1 ] ; 
elseif  psi  <  0  &&  lat  >  0 
section  =  [2  4 ] ; 
elseif  psi  <  0  &&  lat  <  0 
section  =  [3  1 ] ; 
elseif  psi  >  0  &&  lat  <  0 
section  =  [2  4 ] ; 


end 


end 

elseif  psi  >  90 

if  sign (lat)  ==  sign(tgtlat) 

if  psi  >  0  &&  lat  >  0  &&  dlat  >  0 


section  = 

[3 

1]  ; 

elseif  psi  > 

0 

&& 

lat 

> 

0 

&& 

dlat 

< 

0 

section  = 

[1 

3]  ; 

elseif  psi  < 

0 

&& 

lat 

> 

0 

&& 

dlat 

> 

0 

section  = 

[2 

4]  ; 

elseif  psi  < 

0 

&& 

lat 

> 

0 

&& 

dlat 

< 

0 

section  = 

[4 

2]  ; 

elseif  psi  < 

0 

&& 

lat 

< 

0 

&& 

dlat 

> 

0 

section  = 

[1 

3]  ; 

elseif  psi  < 

0 

&& 

lat 

< 

0 

&& 

dlat 

< 

0 

section  = 

[3 

1]  ; 

elseif  psi  > 

0 

&& 

lat 

< 

0 

&& 

dlat 

> 

0 
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section  =  [4  2 ] ; 

elseif  psi  >  0  &&  lat  <  0  &&  dlat  <  0 
section  =  [2  4 ] ; 

end 

elseif  sign (lat  ~=  sign (tgtlat) ) 


if  psi  >  0  && 

lat  >  0 

section  = 

[2  4]; 

elseif  psi  <  0 

&  &  lat 

> 

0 

section  = 

[3  1]; 

elseif  psi  <  0 

&  &  lat 

< 

0 

section  = 

CM 

elseif  psi  >  0 

&  &  l3.t 

< 

0 

section  = 

[3  1]; 

end 

end 

end 


banksign  =  [-1  1]; 


states_at_lonpass .m 


function  [  pass_states,  pass_time  ]  =  states_at_lonpass 
tgtlon  ) 

%  This  function  uses  a  linear  interpolation  to  find  the 
%  states  data  at  the  target  longitude  location 


(  states,  time, 
values  of  input 


Inputs :  states  ( 


,1-6)  : 

1 .  R  ( km ) 

2.  longitude  (rads),  E  positive 

3.  latitude  (rads),  N  positive 

4.  Velocity  (km/s) 

5.  Flight  Path  Angle  (rads) 

6.  Heading  Angle  (rads) 

time  --  time  corresponding  with  state  values  (seconds) 
tgtlat  --  Target  latitude  (degrees) 


Outputs:  pass_states (1-6) 

1 .  R  ( km) 
2 

3 

4 

5 

6 


longitude  (rads) ,  E  positive 
latitude  (rads) ,  N  positive 
Velocity  (km/s) 

Flight  Path  Angle  (rads) 
Heading  Angle  (rads) 


pass_time  --  time  of  overflight  (seconds) 
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Ion  =  rad2deg ( states  (:  ,2)); 


%  Find  latitude  difference  of  each  data  point 
for  i  =  1 : length (Ion) 

dlon(i)  =  delta_longitude (Ion (i) , tgtlon) ; 

end 

dlon  =  deg2rad (dlon) ; 


%  Find  all  target  longitude  crossing  data  points 

loncount  =  0; 

for  i  =  2 : length (dlon) 

if  dlon(i-l)  <  0  &&  dlon(i)  >  0  &&  abs(dlon(i))  <  pi/2; 
loncount  =  loncount  +  1; 
lonpass_index (loncount)  =  i; 

elseif  dlon(i-l)  >  0  &&  dlon(i)  <  0  &&  abs(dlon(i))  <  pi/2; 
loncount  =  loncount  +  1; 
lonpass_index (loncount)  =  i; 

end 

end 


%  Use  a  linear  interpolation  to  find  the  latitudinal  difference  at  each 
%  longitude  pass 
for  i  =  1: loncount 

m  =  (lon(lonpass  index (i))  -  Ion ( lonpass_index ( i )  -  1))./  ... 

( states ( lonpass_index ( i ),: )  -  states ( lonpass_index ( i )  -  1,:)); 

pass_states ( i , : )  =  states ( lonpass_index ( i ),: )  +  (tgtlon  - 

Ion ( lonpass_index (i) ) ) . /m; 

m2  =  ( Ion ( lonpass_index ( i ) )  -  Ion ( lonpass_index ( i )  -  1))/  ... 

(time (lonpass_index (i) )  -  time ( lonpass_index ( i )  -  1)); 

pass_time(i)  =  time ( lonpass_index ( i ) )  +  (tgtlon  - 

Ion ( lonpass_index (i) ) ) /m2; 
end 


end 


states_at_latpass  .m 


function  [  pass_states,  pass_time  ]  =  states_at_pass (  states,  time, 
tgtlat  ) 

%  This  function  uses  a  linear  interpolation  to  find  the  values  of  input 
%  states  data  at  the  target  latitude  location 

%  Inputs:  states  (:, 1-6)  : 

%  1 .  R  ( km) 

%  2.  longitude  (rads),  E  positive 

%  3.  latitude  (rads),  N  positive 
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%  4.  Velocity  (km/s) 

%  5.  Flight  Path  Angle  (rads) 

%  6.  Heading  Angle  (rads) 

%  tgtlat  --  Target  latitude  (degrees) 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-Q-9-5-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

0000000000000000000000000000000000000000000000000000000000000000000 

g,  g,  g,  g, 
o  o  0  o 


%  Outputs:  pass_states (1-6) 

%  1 .  R  ( km) 

%  2.  longitude  (rads),  E  positive 

%  3.  latitude  (rads),  N  positive 

%  4.  Velocity  (km/s) 

%  5.  Flight  Path  Angle  (rads) 

%  6.  Heading  Angle  (rads) 

9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-9-Q-9-9-9-Q-9-Q- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


Q-Q-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-9-9-9-Q-9-9-9-Q-9-9-9-9-9-Q-9-9-9-9-9-9-9-9-9-9-Q-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 


lat  =  rad2deg ( states  (:, 3 )) ; 


%  Find  latitude  difference  of  each  data  point 
dlat  =  lat  -  tgtlat; 


%  Find  all  target  latitude  crossing  data  points 

latcount  =  0; 

for  i  =  2 : length (dlat) 

if  dlat(i-l)  <  0  &&  dlat(i)  >  0 
latcount  =  latcount  +  1; 
latpass_index (latcount)  =  i; 
elseif  dlat(i-l)  >  0  &&  dlat(i)  <  0 
latcount  =  latcount  +  1; 
latpass_index (latcount)  =  i; 

end 

end 


%  Use  a  linear  interpolation  to  find  the  longitudinal  difference  at 
each 

%  latitude  pass 
for  i  =  1: latcount 

m  =  ( lat ( latpass_index ( i ) )  -  lat ( latpass_index ( i )  -  1))./  ... 

( states ( latpass_index ( i ),: )  -  states ( latpass_index ( i )  -  1,: 

pass_states ( i , : )  =  states ( latpass_index ( i ),: )  +  (tgtlat  - 

lat ( latpass_index (i) ) ) . /m; 

m2  =  ( lat ( latpass_index ( i ) )  -  lat ( latpass_index ( i )  -  1))/  ... 

(time (latpass_index (i) )  -  time ( latpass_index ( i )  -  1)); 

pass_time(i)  =  time ( latpass_index ( i ) )  +  (tgtlat  - 
lat ( latpass_index ( i ) ) ) /m2 ; 
end 
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end 


WGS84Constants .m 


function  WGS84Constants 

global  mu  gO  Rearth  wearth  J2  J3  J4  J6  FlatE  EccE  Beta  rhoO  BR 
StefBoltz  Boltz 


%%  Earth 
mu  = 
Rearth  = 
gO 

(km/s"-2) 
wearth  = 


Planetary  Constants 
398600.442;  % 
6378.137;  % 
mu/ (Rearth^2 ) ;  % 

7 .2921158e-5;  % 


Gravitational  parameter  (km'^3/s''2) 
Planetary  radius  (km) 

Sea-level  gravitational  acceleration 
Planetary  rotational  velocity  (rad/s) 


% Jef f ery ' 

J2 

J3 

J4 

J6 


s  Constants 
0.0010826269; 
-0.0000025323; 
-0.0000016204; 
-0.0000021; 


%Planetary  Eccentricity  Calculation 

FlatE  =  1.0/298.257;  %Flattening  parameter  (f) 

EccE2  =  (2.0  -  FlatE) *FlatE;  %Square  of  planetary  eccentricity 
EccE  =  sqrt(EccE2);  %Planetary  eccentricity 


Q-9-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-Q-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-9-9-Q-9-Q-9-9-Q-9-9-9-Q-9-Q- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 

%%  Earth  Atmospheric  Constants 

Beta  =  0.14;  %Atmospheric  scale  height  (km'^-1) 

rhoO  =  1.225  *  (1000)^3;  %Atmospheric  density  @  planetary  surface 


(kg/km^3) 

BR  =  900;  %Average  atmos.  parameter  for  universal 

formulation 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 


%%  Physical 
StefBoltz  = 
Boltz  = 


Constants 

5.67E-8; 

1.380658E-23; 


%Stef an-Boltzmann  constant  (W.m^-2  .K''-4) 
%Boltzmann  constant  (J/K) 


Overfly_GUI  .m 

function  varargout  =  gui_learning (varargin) 

%  GUI_LEARNING  MATLAB  code  for  gui_learning . f ig 
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%  GUI_LEARNING,  by  itself,  creates  a  new  GUI_LEARNING  or  raises 

the  existing 
%  singleton* . 

q, 

o 

%  H  =  GUI_LEARNING  returns  the  handle  to  a  new  GUI_LEARNING  or  the 

handle  to 

%  the  existing  singleton*. 

q, 

0 

%  GUI_LEARNING( 'CALLBACK' ,hObject, eventData, handles, ... )  calls  the 

local 

%  function  named  CALLBACK  in  GUI_LEARNING . M  with  the  given  input 

arguments . 

q, 

0 

%  GUI_LEARNING (' Property ', 'Value ',... )  creates  a  new  GUI_LEARNING 

or  raises  the 

%  existing  singleton*.  Starting  from  the  left,  property  value 

pairs  are 

%  applied  to  the  GUI  before  gui_learning_OpeningFcn  gets  called. 

An 

%  unrecognized  property  name  or  invalid  value  makes  property 

application 

%  stop.  All  inputs  are  passed  to  gui_learning  OpeningFcn  via 

varargin . 

g, 

o 

%  *See  GUI  Options  on  GUIDE'S  Tools  menu.  Choose  "GUI  allows  only 

one 

%  instance  to  run  (singleton)". 

q, 

0 

%  See  also:  GUIDE,  GUIDATA,  GUIHANDLES 

%  Edit  the  above  text  to  modify  the  response  to  help  gui_learning 

%  Last  Modified  by  GUIDE  v2 . 5  06-Sep-20I3  16:07:35 

%  Begin  initialization  code  -  DO  NOT  EDIT 
gui_Singleton  =  I; 

gui_State  =  struct (' gui_Name ' ,  mfilename,  ... 

' gui_Singleton ' ,  gui_Singleton,  ... 

' gui_OpeningFcn ' ,  @gui_learning_OpeningFcn,  ... 

' gui_OutputFcn ' ,  @gui_learning_OutputFcn,  ... 

' gui_LayoutFcn ' ,  []  ,  ... 

' gui_Callback ' ,  [ ] ) ; 

if  nargin  &&  ischar (varargin { I } ) 

gui_State . gui_Callback  =  str2func (varargin { I }) ; 

end 


if  nargout 

[varargout { I : nargout } ]  =  gui_mainfcn (gui_State,  varargin {:}) ; 

else 

gui_mainfcn (gui_State,  varargin { : } ) ; 

end 

%  End  initialization  code  -  DO  NOT  EDIT 
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%  -  Executes  just  before  gui_learning  is  made  visible. 

function  gui_learning  OpeningFcn (hObject,  eventdata,  handles,  varargin) 
%  This  function  has  no  output  args,  see  OutputFcn. 

%  hObject  handle  to  figure 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  varargin  command  line  arguments  to  gui  learning  (see  VARARGIN) 


%  Choose  default  command  line  output  for  gui_learning 
handles . output  =  hObject; 


%  Update  handles  structure 
guidata (hObject,  handles); 

%  UIWAIT  makes  gui_learning  wait 
%  uiwait (handles . figurel )  ; 


for  user  response  (see  UIRESUME) 


%  -  Outputs  from  this  function  are  returned  to  the  command  line. 

function  varargout  =  gui_learning_OutputFcn (hObject,  eventdata, 
handles ) 

%  varargout  cell  array  for  returning  output  args  (see  VARARGOUT); 

%  hObject  handle  to  figure 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 


%  Get  default  command  line  output  from  handles  structure 
varargout{l}  =  handles . output; 


EXECUTES  ON  RUN  BUTTON  PRESS 


function  pushbuttonl_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  pushbuttonl  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 
clc 

global  tgtlat  tgtlon  vehicle 

global  mu  gO  Rearth  wearth  J2  J3  J4  J6  FlatE  EccE  Beta  RhoO  BR 
global  StefBoltz  Boltz 


%%  -  GET  INPUTS  FROM  USER  INTERFACE  — 

initial_orbit . a  =  str2num (get (handles . a,  'string')); 
initial_orbit . e  =  str2num (get (handles . e,  'string')); 
initial_orbit . i  =  str2num (get (handles . i ,  'string')); 
initial_orbit . AoP  =  str2num (get (handles . w,  'string')); 
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initial_orbit . RAAN  =  str2num (get (handles . 0,  'string')); 
initial_orbit . nu  =  str2num (get (handles . v,  'string')); 

vehicle. m  =  str2num (get (handles .m,  'string')); 
vehicle. S  =  str2num (get (handles . S ,  ' string ')) *le-6; 

vehicle. Cl  =  str2num (get (handles . Cl ,  'string')); 
vehicle. Cd  =  str2num (get (handles . Cd,  'string')); 

years  =  get (handles . years ,  'string'); 
months  =  get (handles .months,  'string'); 
days  =  get (handles . days ,  'string'); 
hours  =  get (handles . hours ,  'string'); 
month  =  months (get (handles .months,  'value')); 
if  strcmp (month, 'Jan') 

startdate .month  =  1; 
elseif  strcmp (month, ' Feb ' ) 
startdate .month  =2; 
elseif  strcmp (month, ' Mar ' ) 
startdate .month  =  3; 
elseif  strcmp (month,  ' Apr ' ) 
startdate .month  =  4; 
elseif  strcmp (month, ' May ' ) 
startdate .month  =  5; 
elseif  strcmp (month,  ' Jun ' ) 
startdate .month  =  6; 
elseif  strcmp (month, ' July ' ) 
startdate .month  =  7; 
elseif  strcmp (month, ' Aug ' ) 
startdate .month  =  8; 
elseif  strcmp (month,  ' Sep ' ) 
startdate .month  =  9; 
elseif  strcmp (month, ' Oct ' ) 
startdate .month  =  10; 
elseif  strcmp (month, ' Nov ' ) 
startdate .month  =  11; 
elseif  strcmp (month, ' Dec ' ) 
startdate .month  =  12; 

end 

startdate . year  =  str2double (years (get (handles . years,  'value'))) 
startdate . day  =  str2double (days (get (handles . days ,  'value'))); 

startdate . hour  =  hours (get (handles . hours ,  'value')); 
if  strcmp ( startdate . hour ,' Start  Hour') 
startdate . hour  =  0; 

else 

startdate . hour  =  str2double ( startdate . hour ) ; 

end 

startdate .min  =  str2double (get (handles .minute,  'string')); 
startdate . sec  =  str2double (get (handles . second,  'string')); 

simtime  =  str2num (get (handles . simtime,  ' string ')) *3600  ; 

tgtlat  =  str2num (get (handles . tgtlat,  'string')); 
tgtlon  =  str2num (get (handles . tgtlon,  'string')); 
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%  Update  user  interface 
set (handles . slider_a,  ' 
set (handles . slider_e,  ' 
set (handles . slider  i,  ' 
set (handles . slider  w,  ' 
set (handles . slider_0,  ' 
set (handles . slider  v,  ' 


input 
value ' , 
value ' , 
value ' , 
value ' , 
value ' , 
value ' , 


values 

initial_orbit . a) ; 
initial_orbit . e) ; 
initial  orbit. i); 
initial_orbit . AoP) ; 
initial_orbit .  RAAN) 
initial  orbit. nu); 


initial_orbit 

vehicle 

tgtlon 

tgtlat 

startdate 

simtime 


%%  Load  Constants  and  Convert  initial  orbit  to  relative  planet  fixed 
parameters 

%Optimal  Overf ly_Inputs ;  %  Loads  User  Defined  Inputs 

WGS84Constants;  %  Loads  Earth  WGS  84  Constants 

%  Convert  Initial  Orbit  to  inertial  R(km/s),  Lat(rad),  Long (rad), 

V (km/s) , 

%  fpa(rad),  and  heading  angle (rad) 

initial_states  =  OrbEl_to_PlanetFix (initial_orbit,  startdate); 

%  Error  message  if  initial  orbit  is  below  the  earth 
starterror  =  [ ] ; 
if  initial_states ( 1 )  <  Dearth 

display (' Initial  state  is  below  the  surface  of  the  earth.') 
starterror  =  1; 

end 


%  Convert  initial  parameters  from  inertial  to  planet  relative 
rel  initial  states  =  Inertial2Rel  States ( initial  states); 


%%  Propagate  initial  orbit  forward  in  time  for  the  user  specified 
%  simulation  time 
if  isempty ( starterror ) 

options  =  odeset ( ' RelToi ' , le-7, ' AbsTol ' , le-7, ' Events ' , @breakevent) ; 
dv  =  0 ; 

rel_initial_states ( 4 )  =  rel_initial_states ( 4 )  +  dv; 

[time, rel_states]  =  ode45 (@equations_of_motion_ODE45, [0 
simtime] , rel_initial_states , options) ; 
datapoints  =  length (time) ; 
for  i  =  Irdatapoints 

if  rel_states ( i ,  2 )  >  pi 

rel_states ( i : end, 2 )  =  -(pi  -  (rel_states ( i : end, 2 )  -  pi) ) ; 

elseif  rel_states ( i : end,  2 )  <  -pi 

rel_states ( i : end, 2 )  =  (pi  +  (rel_states ( i : end, 2 )  +  pi) ) ; 
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end 


end 

if  time (end)  ~=  simtime 

display (' Orbit  intersects  the  earth.') 

end 

%  Find  the  longitudinal  and  latitudinal  difference  at  each  point 
for  i  =  Irdatapoints 

if  rel_states ( i , 2 )  >  0  &&  tgtlon  <  0 

dlon(i)  =  -360+ (rad2deg (rel_states (i, 2) )  -  tgtlon); 
elseif  rel_states ( i , 2 )  <  0  &&  tgtlon  >  0 

dlon(i)  =  360  +  (rad2deg (rel_states (i, 2) )  -  tgtlon); 

else 

dlon(i)  =  rad2deg (rel_states (i, 2) )  -  tgtlon; 

end 

if  dlon (i)  >  180 

dlon(i:end)  =  -(180  -  (dlon(i:end)  -  180)); 
elseif  dlon(i:end)  <  -180 

dlon(i:end)  =  (180  +  (dlon(i:end)  +  180)); 

end 

end 

dlat  =  rad2deg (rel_states ( : , 3) )  -  tgtlat; 
lat  =  rel_states ( : , 3 ) ; 

Ion  =  rel_states  ( : , 2 )  ; 

distance  =  acos (sin  (lat)  . *sind (tgtlat)  +  ... 

cos (lat) . *cosd (tgtlat) . *cosd (transpose (dlon) ) ) *Rearth 
ddist_dt  =  diff (distance) ; 

%  Find  the  lat/long  difference  for  the  closest  point  of  each  pas 
count  =  1; 

for  i  =  2 : datapoints- 1 

if  ddist_dt ( i- 1 )  <0  &&  ddist_dt(i)  >  0 
mindist_index (count)  =  i; 
count  =  count  +  1; 

end 

end 

dlon_miss  =  dlon (mindist_index) ; 
dlat_miss  =  dlat (mindist_index) ; 

miss_tol  =  1; 

initial_phase_states  =  rel_initial_states ; 
phase_dlon_miss  =  dlon_miss; 
phase_dv  =  0.1; 
k=l; 

for  i  =  2:2%count-l 

distance (mindist_index (i)  ) 

while  distance (mindist_index ( i ) )  >  miss_tol 

if  phase_dlon_miss ( i )  >  0 
zeroin ( k)  =  1 ; 

else 

zeroin (k)  =  -1; 

end 

if  k  >  1 
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if  zeroin ( k) 
phase_dv 

end 

end 

if  k  >  2 

if  zeroin ( k) 
phase_dv 

end 

end 

k  =  k+1 
phase  dv 


==  -zeroin (k-1) 
=  phase_dv/2; 


==  zeroin (k-1)  &&  zeroin (k) 

=  phase_dv/2; 


-zeroin (k-2) 


if  phase_dlon_miss ( i )  >  0; 

initial_phase_states ( 4 )  =  initial_phase_states (4 )  - 

phase_dv; 

else 

initial  phase_states ( 4 )  =  initial  phase_states (4 )  + 

phase_dv; 

end 


[phase_time, phase_states]  = 
ode45 (@equations_of_motion_ODE45,  .  .  . 

[0  simtime] , initial_phase_states , options) ; 


phase_points  =  length (phase_time) 
for  ii  =  1 : phase_points 

if  phase_states ( ii , 2 )  >  pi 

phase_states ( ii : end, 2 )  =  -(pi  -  (phase_states ( ii : end, 2 ) 

-  pi) ) ; 

elseif  rel_states ( ii : end, 2 )  <  -pi 

phase_states ( ii : end, 2 )  =  (pi  +  (phase_states ( ii : end, 2 ) 

+  pi) ) ; 

end 

end 


for  ii  =  Irphase  points 

if  phase_states ( ii , 2 )  >  0  &&  tgtlon  <  0 

phase_dlon ( ii )  =  -360+ (rad2deg (phase_states (ii, 2) )  - 

tgtlon) ; 

elseif  phase_states ( ii , 2 )  <  0  &&  tgtlon  >  0 

phase_dlon ( ii )  =  360  +  (rad2deg (phase_states (ii, 2) )  - 

tgtlon) ; 

else 

phase_dlon ( ii )  =  rad2deg (phase_states ( ii , 2 ) )  -  tgtlon; 

end 

if  phase_dlon ( ii )  >  180 

phase_dlon ( ii : end)  =  -(180  -  (phase_dlon ( ii : end)  - 

180) )  ; 

elseif  dlon(i:end)  <  -180 

phase_dlon ( ii : end)  =  (180  +  (phase_dlon ( ii : end)  + 

180) )  ; 
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end 


end 

phase_dlat  =  rad2deg (phase_states ( : , 3 ) )  -  tgtlat; 

phase_lat  =  phase_states ( : , 3 ) ; 

phase^lon  =  phase_states ( : , 2 ) ; 

phase_lat (phase_points  +  l : end)  =  [ ]  ; 

phase_dlon (phase_points  +  l : end)  =  [ ]  ; 

phase_dlat (phase_points  +  l : end)  =  [ ]  ; 

phase_distance  =  acos (sin (phase_lat) . *sind (tgtlat)  +  ... 

cos (phase_lat) . *cosd (tgtlat) . *cosd (transpose (phase_dlon) ) ) *Rearth 
phase_ddist_dt  =  diff (phase_distance) ; 
phase_count  =  1; 
for  11  =  2 :phase_points-l 

if  phase_ddist_dt (ii-1)  <  0  &&  phase_ddist_dt ( 11 )  >  0 
phase_mindist_index (phase_count)  =  11; 
phase_count  =  phase_count  +  1; 

end 

end 

if  phase_count  ==  1 

phase_mindist_index  =  [ ]  ; 
phase_dlon  miss  =  -1; 

else 

phase  dlon_miss  =  phase  dlon (phase  mindist_index) ; 
phase_dlat_miss  =  phase_dlat (phase_mindist_index)  ; 

end 


%globe_plot (phase_states ) 
if  k  ==  20 
break 

end 


end 

end 


%  --  Save  wanted  data  -- 

%  save ( ' initial_orbit .mat ' , ' initial_orbit ' ) 

%  save ( ' rel_initial_states .mat ' , ' rel_initial_states ' ) 
%  save ( ' rel_states .mat ' , ' rel_states ' ) 

%  save ( ' distance .mat ' , ' distance ' ) 

%  save ( ' phase_states .mat ' , ' phase_states ' ) 

%  --  Plot  wanted  data  -- 
%  globe_plot (rel_states) ; 

%  plotstates (rel_states,  time)  ; 

%  groundtrack (rel_states) ; 

%  figure 

%  plot (time, distance) 

%  figure 

%  plot (time ( 1 : datapoints-1 ) , ddist_dt) 
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end 


%  -  Executes  on  slider  movement. 

function  slider_a_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_a  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'Value')  returns  position  of  slider 
%  get (hObject,  'Min')  and  get (hObject,  'Max')  to  determine  range 

of  slider 

set (handles . a,  'string',  get (handles . slider_a,  'Value')); 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  slider_a_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_a  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint;  slider  controls  usually  have  a  light  gray  background, 
if  isequal (get (hObject, ' BackgroundColor ' ) , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ',[. 9  .9  .9]); 

end 


function  a_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  a  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  a  as  text 
%  str2double (get (hObject,  ' String ') )  returns  contents  of  a  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  a_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  a  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 
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if  ispc  &&  isequal (get (hObject, ' BackgroundColor ' ) , 
get ( 0  ,  ' def aultUicontrolBackgroundColor ' ) ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


function  e_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  e  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  e  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  e  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  e_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  e  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


%  -  Executes  on  slider  movement. 

function  slider_e_Callback (hObj ect,  eventdata,  handles) 

%  hObject  handle  to  slider_e  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'Value')  returns  position  of  slider 
%  get (hObject, 'Min ' )  and  get (hObject, 'Max ' )  to  determine  range 

of  slider 

set (handles . e,  'string',  get (handles . slider_e,  'Value')); 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  slider_e_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_e  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  slider  controls  usually  have  a  light  gray  background. 
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if  isequal (get (hObject, ' BackgroundColor ' ) , 
get ( 0  ,  ' def aultUicontrolBackgroundColor ' ) ) 

set (hObject, ' BackgroundColor 9  .9  .9]); 

end 


%  -  Executes  on  slider  movement. 

function  slider_i_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_i  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'Value')  returns  position  of  slider 
%  get (hObject, 'Min')  and  get (hObject, 'Max')  to  determine  range 

of  slider 

set (handles . i ,  'string',  get (handles . slider_i ,  'Value')); 

%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  slider_i_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_i  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  slider  controls  usually  have  a  light  gray  background, 
if  isequal (get (hObj ect,  ' BackgroundColor ' ) , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor ' ) ) 

set  (hObject,  ' BackgroundColor ',[. 9  .9  .9]); 

end 


function  i_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  i  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  i  as  text 
%  str2double (get (hObject, ' String ') )  returns  contents  of  i  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  i_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  i  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 
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if  ispc  &&  isequal (get (hObject, ' BackgroundColor ' ) , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 


%  -  Executes  on  slider  movement. 

function  slider_w_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_w  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'Value')  returns  position  of  slider 
%  get (hObject, 'Min')  and  get (hObject, 'Max')  to  determine  range 

of  slider 

set (handles . w,  'string',  get (handles . slider_w,  'Value')); 

%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  slider_w_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_w  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  slider  controls  usually  have  a  light  gray  background, 
if  isequal (get (hObj ect,  ' BackgroundColor ' ) , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor ' ) ) 

set  (hObject,  ' BackgroundColor ',[. 9  .9  .9]); 

end 


function  w_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  w  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  w  as  text 
%  str2double (get (hObject, ' String ') )  returns  contents  of  w  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  w_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  w  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0  ,  ' def aultUicontrolBackgroundColor ' ) ) 
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set (hob j  ect ,  ' BackgroundColor ' ,  'white ') ; 


end 


%  -  Executes  on  slider  movement. 

function  slider_0_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_0  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject,  'Value')  returns  position  of  slider 
%  get (hObject, 'Min')  and  get (hObject, 'Max')  to  determine  range 

of  slider 

set (handles . 0,  'string',  get (handles . slider_0,  'Value')); 

%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  slider_0_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_0  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  slider  controls  usually  have  a  light  gray  background, 
if  isequal (get (hObject, ' BackgroundColor ' ) , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor ' ) ) 

set (hObject, ' BackgroundColor ',[. 9  .9  .9]); 

end 


function  0_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  0  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  0  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  0  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  0_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  0  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 
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%  -  Executes  on  slider  movement. 

function  slider_v_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_v  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'Value')  returns  position  of  slider 
%  get (hObject,  'Min ' )  and  get (hObject,  'Max ' )  to  determine  range 

of  slider 

set (handles . V,  'string',  get (handles . slider_v,  'Value')); 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  slider_v_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  slider_v  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  slider  controls  usually  have  a  light  gray  background, 
if  isequal (get (hObj  ect,  ' BackgroundColor ' ) , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ',[. 9  .9  .9]); 

end 


function  v_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  v  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  v  as  text 
%  str2double (get (hObject, ' String ') )  returns  contents  of  v  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  v_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  v  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 
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function  tgtlat_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  tgtlat  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  tgtlat  as  text 
%  str2double (get (hObject,  ' String ')  )  returns  contents  of  tgtlat 

as  a  double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  tgtlat_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  tgtlat  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


function  tgtlon_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  tgtlon  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  tgtlon  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  tgtlon 

as  a  double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  tgtlon_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  tgtlon  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 
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%  -  Executes  on  selection  change  in  targetmenu. 

function  targetmenu_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  targetmenu  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  contents  =  cellstr (get (hObj ect, ' String ') )  returns  targetmenu 
contents  as  cell  array 

%  contents {get (hObject, 'Value ') }  returns  selected  item  from 

targetmenu 

targets  =  get (handles . targetmenu,  'string'); 
tgtlocation  =  targets (get (handles . targetmenu,  'value')); 
if  strcmp (tgtlocation, ' Dayton,  Oh') 
tgtlat  =  39.758944; 
tgtlon  =  -84.191629; 

elseif  strcmp (tgtlocation,  'Moscow,  Russia') 
tgtlat  =  55.751244; 
tgtlon  =  37.618423; 

elseif  strcmp (tgtlocation,  ' Tehran,  Iran') 
tgtlat  =  35.696216; 
tgtlon  =  51.422945; 

else 

tgtlat  =  str2num (get (handles . tgtlat,  'string')); 
tgtlon  =  str2num (get (handles . tgtlon,  'string')); 

end 

set (handles . tgtlat,  'string',  tgtlat); 
set (handles . tgtlon,  'string',  tgtlon); 


%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  targetmenu_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  targetmenu  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  popupmenu  controls  usually  have  a  white  background  on  Windows. 
%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


function  Cl_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  Cl  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject,  'String')  returns  contents  of  Cl  as  text 
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double 


str2double (get (hObj ect, ' String ') )  returns  contents  of  Cl  as  a 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  Cl_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  Cl  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 


function  Cd_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  Cd  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  Cd  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  Cd  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  Cd_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  Cd  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObj ect, ' BackgroundColor ') , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


function  m_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  m  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  m  as  text 
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double 


str2double (get (hObj ect, ' String ') )  returns  contents  of  m  as  a 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  m_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  m  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 


function  S_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  S  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  S  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  S  as  a 

double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  S_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  S  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObj ect, ' BackgroundColor ') , 
get ( 0  ,  ' def aultUicontrolBackgroundColor ' ) ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


g, 

o 

function  Untitled_l_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  Untitled_l  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 
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%  -  Executes  on  selection  change  in  years. 

function  years_Callback;  (hObject,  eventdata,  handles) 

%  hObject  handle  to  years  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  contents  =  cellstr (get (hObject, ' String ') )  returns  years 
contents  as  cell  array 

%  contents {get (hObject, 'Value ') }  returns  selected  item  from 

years 


%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  years_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  years  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  popupmenu  controls  usually  have  a  white  background  on  Windows 
%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


%  -  Executes  on  selection  change  in  months. 

function  months_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  months  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  contents  =  cellstr (get (hObj ect, ' String ') )  returns  months 
contents  as  cell  array 

%  contents { get (hob j ect ,' Value ') }  returns  selected  item  from 

months 


%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  months_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  months  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  popupmenu  controls  usually  have  a  white  background  on  Windows 
%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObj ect, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 
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%  -  Executes  on  selection  change  in  days. 

function  days_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  days  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  contents  =  cellstr (get (hObj ect, ' String ') )  returns  days 
contents  as  cell  array 

%  contents { get (hob j ect Value ') }  returns  selected  item  from  days 


%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  days_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  days  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  popupmenu  controls  usually  have  a  white  background  on  Windows. 
%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObj ect, ' BackgroundColor ' ) , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 


%  -  Executes  on  selection  change  in  hours. 

function  hours_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  hours  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  contents  =  cellstr (get (hObject,  ' String ')  )  returns  hours 
contents  as  cell  array 

%  contents { get (hob j ect ,' Value ') }  returns  selected  item  from 

hours 


%  -  Executes  during  object  creation,  after  setting  all  properties. 

function  hours_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  hours  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  popupmenu  controls  usually  have  a  white  background  on  Windows. 
%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get  ( 0 ,  ' def aultUicontrolBackgroundColor ' ) ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 
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function  minute_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  minute  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject,  'String')  returns  contents  of  minute  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  minute 

as  a  double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  minute_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  minute  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


function  second_Callback (hObject,  eventdata,  handles) 

%  hObject  handle  to  second  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject, 'String')  returns  contents  of  second  as  text 
%  str2double (get (hObject, ' String ') )  returns  contents  of  second 

as  a  double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  second_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  second  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0  ,  ' def aultUicontrolBackgroundColor ' )  ) 

set  (hObject,  ' BackgroundColor ' ,  'white ' ) ; 

end 
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function  simtime_Callback;  (hObject,  eventdata,  handles) 

%  hObject  handle  to  simtime  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  structure  with  handles  and  user  data  (see  GUIDATA) 

%  Hints:  get (hObject,  'String')  returns  contents  of  simtime  as  text 
%  str2double (get (hObj ect, ' String ') )  returns  contents  of  simtime 

as  a  double 


%  -  Executes  during  object  creation,  after  setting  all  properties 

function  simtime_CreateFcn (hObject,  eventdata,  handles) 

%  hObject  handle  to  simtime  (see  GCBO) 

%  eventdata  reserved  -  to  be  defined  in  a  future  version  of  MATLAB 
%  handles  empty  -  handles  not  created  until  after  all  CreateFcns 
called 

%  Hint:  edit  controls  usually  have  a  white  background  on  Windows. 

%  See  ISPC  and  COMPUTER. 

if  ispc  &&  isequal (get (hObject, ' BackgroundColor ') , 
get ( 0 ,  ' def aultUicontrolBackgroundColor  '  )  ) 

set (hObject, ' BackgroundColor ' , 'white ' ) ; 

end 


globe_jplot2  .m 


function  globe_plot2 ( states ,  states2) 

%  Plots  six  position  and  velocity  states  as  a  function  of  time 
global  tgtlon  tgtlat 

states ( : ,  2 : 3 )  =  rad2deg ( states ( : ,  2  :  3 )  )  ; 
states ( : , 5 : 6 )  =  rad2deg ( states ( : , 5 : 6 ) )  ; 
states2 ( : , 2 : 3 )  =  rad2deg ( states2 ( : , 2 : 3 ) ) ; 
states2 ( : , 5 : 6 )  =  rad2deg ( states2 ( : ,  5 : 6 )  )  ; 
figure 

worldmap ( ' World ' ) 
load  coast 

plotm(lat,  long, 'k') 

geoshow (' landareas . shp ' ,  'FaceColor',  [0.3  0.7  0.15]) 
plotm(states(:,3),states(:,2), 'r', ' linewidth ',2.2) 
plotm(states2(:,3),states2(:,2), 'y--', ' linewidth ',2.5) 

%plotm (tgtlat, tgtlon, ' b . ' , ' markers ize ' , 20 ) 
hold  on 


end 
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plot_states  .m 


function  plotstates ( states ,  time) 
global  Rearth 

%  Plots  six  position  and  velocity  states  as  a  function  of  time 


%  Inputs:  initial_states ( ) : 

%  1  -  Radius  (km) 

%  2  -  Longitude  (rads) 

%  3  -  Latitude  (rads) 

%  4  -  Velocity  (km/s) 

%  5  -  Flight  Path  Angle  (rads) 

%  6  -  Heading  Angle  (rads) 

%  time  -  time  (seconds) 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

9-  9-  9-  9- 
0  0  0  0 

%  Outputs:  Subplot  of  states  vs  time 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000 


9-  9-  9-  9- 
o  o  o  0 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000 

9-  9-  9-  9- 
0  0  0  0 


states ( : , 2 : 3 )  =  rad2deg(states(:,2:3)); 
states ( : , 5 : 6 )  =  rad2deg ( states ( : , 5 : 6 ) ) ; 
states (:,1)  =  states (:,1)  -  Rearth; 
figure 

subplot  (3,2, 1 ) 


plot (time, states  ( : , 1) ,  ' 
grid  on 

%ylim([0  1000]) 
xlabel('Time  (s) ') 
ylabel (' Altitude  (km) ') 

linewidth ' 

LO 

\ — 1 

subplot  (3,2,2) 

plot (time, states(:,2),' 
grid  on 

xlabel('Time  (s) ') 

linewidth ' 

LO 

\ — 1 

ylabel (' Longitude  (deg) 

'  ) 

subplot  (3,2,4) 

plot (time, states ( : , 3) ,  ' 
grid  on 

xlabel('Time  (s) ') 

linewidth ' 

LO 

\ — 1 

ylabel (' Latitude  (deg) ' 

) 

subplot (3,2,3) 

plot (time, states  ( : , 4) ,  ' 
grid  on 

xlabel('Time  (s) ') 

linewidth ' 

LO 

t — 1 

ylabel (' Velocity  (km/s) 

'  ) 

subplot (3,2,5) 

plot (time, states ( : , 5) ,  ' 
grid  on 

linewidth ' 

LO 

\ — 1 
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xlabel ( ' Time  (s) ') 

ylabel (' Flight  Path  Angle  (deg) ') 

subplot  (3,2, 6 ) 

plot (time, states(:,6),' linewidth ',1.75) 
grid  on 

xlabel ('Time  (s) ') 

ylabel (' Heading  Angle  (deg) ') 


TOA  vs  dV  All.m 


function  TOA_vs_dV_all (timel ,  dvl,  time2,  dv2 ,  time3,  dv3,  time4, 

bank_angle) 

global  Rearth 

%  Plots  Required  delta  V  in  km/ s  vs.  time  of  arrival  in  minutes 


%  Inputs: 

g, 

o 

g, 

0 

g, 

o 

g, 

0 

g, 

0 

Q-Q-9-9-9-Q-9-9-9- 

ooooooooo 

9-  9-  9-  9- 
0  0  0  0 


timel 
dvl 
time  2 
dv2 
time  3 
dv3 


phase  time  of  arrival  (seconds) 
phase  change  in  velocity  (km/s) 
plane  time  of  arrival  (seconds) 
plane  change  in  velocity  (km/s) 
skip  time  of  arrival  (seconds) 
skip  change  in  velocity  (km/s) 


9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


%  Outputs:  dv  vs  toa  plot 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

00000000000000000000000000000000000000000000000000000000000000000 

9-  9-  9-  9- 
0  0  0  0 

9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9- 

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


9-  9-  9-  9- 
0  0  0  0 


global  tgtlat  tgtlon  initialorbit 


timel 
time2 
time  3 
time  4 


timel/ 3 600; 
time2/3600; 
time3/3600 ; 
time4/3600; 


%f igure (' Position ', get ( 0 , ' Screens ize ' ) ) 
figure 


plot (timel , dvl , 
hold  on 

'b*  '  , 

' linewidth ' , 3 

plot (time2 , dv2 , 

'g*  '  , 

' linewidth ' , 3 

plot (time3, dv3. 

'  r*  '  , 

' linewidth ' , 3 

plot (time4 , dv4 , 
grid  on 

'  k*  '  , 

' linewidth ' , 3 

xlabel ('Time  of  Arrival  (hours) ') 

ylabel (' Change  in  Velocity  (km/s) ') 

titlel  =  ['  Target  Lat  =  '  num2str (tgtlat) ] ; 

title2  =  ['  Target  Lon  =  '  num2str (tgtlon) ] ; 


dv4 


9-  9-  9-  9- 
0  o  o  o 


9-  9-  9-  9- 
0  0  0  0 


9-  9-  9-  9- 
0  o  o  o 
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titles  =  ['  Initial  Orbit  a  =  '  numSstr (initialorbit . a) ] ; 

title!  =  ['  e  =  '  numSstr (initialorbit . e) ] ; 

titles  =  ['  i  =  '  numSstr (initialorbit . i) ] ; 

titles  =  ['  RAAN  =  '  numSstr ( initialorbit .  RAAN) ] ; 

title?  =  ['  w  =  '  numSstr (initialorbit . AoP) ] ; 

titles  =  ['True  Anamoly  =  '  numSstr ( initialorbit . nu) ] ; 
title9  =  [  'Bank  =  '  numSstr (bank_angle) ] ; 

titlel  =  [titlel  titleS]; 

title({titlel, titles, title!, titles, titles, title?, titles, title9},  'fonts! 
ze ' , 12 ) 

legend (' Phasing  Maneuver', 'Simple  Plane  Change  Maneuver', 'Atmospheric 
Skip  Maneuver', 'Re-Circularizing  Atmospheric 
Maneuver ' , ' Location ' , ' NorthOutside ' ) 


Reachability . m 

%%  -  Optimal  Space  Maneuvering  for  Ground  Target  Overfly  Version  l.S 

%  Devin 

Dalton 

%  ?  Aug 

201S 

g, 

o 

%  This  code  calculates  the  optimal  satellite  manuever  from  a  fuel 
%  consumption  and  delta-V  perspective  for  a  given  target,  time  of 
arrival , 

%  and  initial  orbit. 


%  Governing  Equations: 

%  -  Three  dimentional  entry  equations  S.SS-S.S?  &  S.SS-S.S?  on 

%  p.  !2  &  S2  of  Hicks  text 

%  -  Variables  are  integrated  in  dimensional  form 


Code  assumes: 

-  Rotating  planet 

-  Non-thrusting  entry 

-  Non-planar  entry  (for  planar. 


sigma  set  to  0  or  ISO  deg) 


CHANGE  FROM  LAST  VERSION: 

1 .  Bank  Angle  Sweep 


for  devin  =  5:5 
clear  test; 
if  devin  ==  1 

aorbit  =  500; 
iorbit  =  2S.52; 
bankers  =  SO; 
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testnum  =  24; 
elseif  devin  ==  2 
aorbit  =  500; 
iorbit  =  45; 
bankers  =  75; 
testnum  =  25; 
elseif  devin  ==  3 
aorbit  =  500; 
iorbit  =  45; 
bankers  =  85; 
testnum  =  26; 
elseif  devin  ==  4 
aorbit  =  500; 
iorbit  =  45; 
bankers  =  90; 
testnum  =  27; 
elseif  devin  ==  5 
aorbit  =  250; 
iorbit  =  45; 
bankers  =  80; 
testnum  =  28; 
elseif  devin  ==  6 
aorbit  =  750; 
iorbit  =  45; 
bankers  =  80; 
testnum  =  29; 
elseif  devin  ==  7 
aorbit  =  500; 
iorbit  =  45; 
bankers  =  80; 
testnum  =  21; 

end 

devin 


%  Declare  Global  Variables 

global  tgtlat  tgtlon  initialorbit  startdate  simtime  vehicle  inc_sign 
global  mu  gO  Dearth  wearth  J2  J3  J4  J6  FlatE  EccE  Beta  rhoO  BR  flagger2 
global  StefBoltz  Boltz  bank  flaggerl  index  bankplot  timer  deltaV  tstart 
global  flagger  acc 


bankangle  =  80; 

%  testnum  =  24; 

%  Bring  in  constants  and  define  saved  variables  that  were  cleared  above 
Optimal_Overf ly_Inputs ;  %  Loads  User  Defined  Inputs 

WGS84Constants;  %  Loads  Earth  WGS  84  Constants 

initialorbit . a  =  aorbit  +  Dearth; 
initialorbit . i  =  iorbit; 
bankangle  =  bankers; 

%  test_num  =  231; 
lambda=  le-6; 
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D  =  1.15; 
bank  =  80; 

load ( ' directory .mat ' , 'directory ' ) 

%load( 'test .mat ' ) 

load ( ' run .mat ' ) 

load ( ' totalcount .mat ' ) 

%bank  angle  =  84  +  run; 

%tgtlat  =  tgtlat  +  run; 

%initialorbit . i  =  initialorbit . i  +  run; 

%initialorbit . RAAN  =  initialorbit . RAAN  -  26.4  +24/10*run; 


%  Convert  Initial  Orbit  to  inertial  R(km/s),  Lat(rad),  Long (rad), 
V (km/s) , 

%  fpa(rad),  and  heading  angle (rad) 

initial_states  =  OrbEl_to_PlanetFix (initialorbit,  startdate) ; 

Vp  =  sqrt (2*mu/initial_states ( 1 ) ) ; 


%  Error  message  if  initial  orbit  is  below  the  earth 
starterror  =  []; 
if  initial_states ( 1 )  <  Rearth 

display (' Initial  state  is  below  the  surface  of  the  earth.') 
starterror  =  1; 

end 


%  Convert  initial  parameters  from  inertial  to  planet  relative 
rel_initial_states  =  Inertial2Rel_States ( initial_states ) ; 
p_states  =  rel_initial_states ; 
p_states(4)  =  Vp; 

p_rel_states  =  Inertial2Rel_States (p_states ) ; 

Vp_rel  =  p_rel_states ( 4 )  ; 


--  Propagate  initial  orbit  forward  in  time  -- 


if  isempty ( starterror )  %  Only  perform  if  initial  orbit  is  a  valid 

orbit 

tic 

options  =  odeset ( ' RelTol ' , le-6, ' AbsTol ' , le-6, ' Events ' , @breakevent) ; 

inc_sign  =  0; 

index  =  1 ; 

timer  =  [ ] ; 

bankplot  =  []; 

rel  initial  states (4)  =  rel  initial  states (4); 
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[time, rel_states]  =  ode45 (@equations_of_motion_ODE45,  ... 

[0  simtime] , rel_initial_states , options) ; 
rel_bankplot  =  bankplot; 
rel_gs  =  acc; 
reltimer  =  timer; 


%  Correct  Longitude  to  be  between  -180  and  180  degrees 
datapoints  =  length (time) ; 
for  i  =  Irdatapoints 

if  rel_states ( i ,  2 )  >  pi 

rel_states ( i : end, 2 )  =  -(pi  -  (rel_states (i rend, 2)  -  pi)) 

elseif  rel_states ( i : end,  2 )  <  -pi 

rel_states ( i : end, 2 )  =  (pi  +  (rel_states (i rend, 2)  +  pi) ) ; 

end 

end 


%  Earth  Intersection  Warning 
if  time (end)  ~=  simtime 

display (' Orbit  intersects  the  earth.') 

end 


%  Find  the  longitudinal  and  latitudinal  difference  at  each  point 
for  i  =  Irdatapoints 

dlon(i)  =  delta_longitude (rad2deg (rel_states (i, 2) )  ,  tgtlon)  ; 

end 

dlat  =  rad2deg (rel_states ( r , 3) )  -  tgtlat; 
lat  =  rel_states  ( r , 3 ) ; 

Ion  =  rel_states  ( r , 2 ) ; 

distance  =  acos (sin (lat) . *sind (tgtlat)  +  ... 

cos (lat) . *cosd (tgtlat) . *cosd (transpose (dlon) ) ) *Rearth 
ddist  dt  =  diff (distance) ; 


%  Find  the  lat/long  difference  for  the  closest  point  of  each  pas 
count  =  1; 

for  i  =  2 r datapoints- 1 

if  ddist_dt ( i- 1 )  <0  &&  ddist_dt(i)  >  0 
mindist  index (count)  =  i; 
count  =  count  +  1; 

end 

end 

dlon_miss  =  dlon (mindist_index) ; 
dlat  miss  =  dlat (mindist  index) ; 


for  i  =  lrcount-1 

yl  =  rad2deg ( lat (mindist_index ( i )  -  1)); 

y2  =  rad2deg ( lat (mindist_index ( i )  )  )  ; 
y3  =  rad2deg ( lat (mindist_index ( i )  +  1)); 
xl  =  rad2deg ( Ion (mindist_index ( i )  -  1)); 
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x2  =  rad2deg ( Ion (mindist_index ( i ) ) )  ; 
x3  =  rad2deg ( Ion (mindist_index ( i )  +  1)); 
ml  =  (y2  -  yl)/(x2  -  xl); 
m2  =  (y3  -  y2)/(x3  -  x2); 

xminl  =  (ml*  (tgtlat  -y2  +  ml*x2)  +  tgtlon)/(l  +  ml '^2); 
xmin2  =  (m2*  (tgtlat  -y3  +  m2*x3)  +  tgtlon)/(l  +  m2''2); 
yminl  =  y2  +  ml* (xminl  -  x2); 
ymin2  =  y3  +  m2* (xmin2  -  x2); 

min_distl  =  sqrt((tgtlon  -  xminl) ^2  +  (tgtlat  -  yminl) ^2); 
min_dist2  =  sqrt((tgtlon  -  xmin2)*2  +  (tgtlat  -  ymin2)''2); 
if  min_distl  <  min_dist2 

min_dist(i)  =  min_distl; 

else 

min_dist(i)  =  min_dist2; 

end 

end 

phase_min_dist  =  min_dist; 
plane_min_dist  =  min_dist; 
skip_min_dist  =  min_dist; 
overflycount  =  0; 
skip_overf lycount  =  0; 


%  Find  the  d-iongitude  for  each  target  latitude  passing 
if  abs (tgtlat)  <=  initialorbit . i 

[dlon_lat,  skiptheta]  =  d_lon_at_lat_func (Ion,  lat,  tgtlon, 
tgtlat) ; 

[dlon_pass_states ,  dlon_pass_time]  =  states_at_pass (rel_states, 
time,  tgtlat) ; 
end 

[dlat_lon,  phi]  =  d_lat_at_lon_func (Ion,  lat,  tgtlon,  tgtlat); 
[pass_states ,  pass__time]  =  states_at_lonpass (rel_states,  time,  tgtlon) 
Vp_rel  =  11; 


%  Find  the  closest  northern,  easter,  southern,  and  western  points  if 
%  tgtlat  <  inclination  otherwise  find  just  the  north  or  souther  points 
if  abs (tgtlat)  <  initialorbit . i 
si  =  0 ; 
ni  =  0 ; 

for  i  =  1 : length (dlat_lon) 
if  dlat_lon(i)  <  0 
si  =  si  +  1; 

s_points(si)  =  -dlat_lon ( i ) ; 

else 

ni  =  ni  +  1; 

n_points(ni)  =  dlat_lon(i); 

end 

end 

n  point_deg  =  min (n_points ) ; 
s  point_deg  =  min(s  points); 

n_point  =  acos (sind (tgtlat  +  n_point__deg) *sind (tgtlat)  +  ... 

cosd (tgtlat  +  n_point_deg) *cosd (tgtlat) ) *Rearth; 
s_point  =  acos (sind (tgtlat  -  s_point_deg) *sind (tgtlat)  +  ... 
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cosd(tgtlat  -  s_point_deg) *cosd (tgtlat) ) *Rearth; 
n_index  =  f ind (dlat_lon  ==  n_point_deg) ; 
s_index  =  f ind ( -dlat_lon  ==  s_point_deg) ; 
n_time  =  pass  time (n  index) ; 
s_time  =  pass_time ( s_index) ; 
if  abs (tgtlat)  <=  initialorbit . i 
e  i  =  0 ; 
wi  =  0 ; 

for  i  =  1 : length (dlon_lat) 
if  dlon_lat(i)  <  0 
wi  =  wi  +  1 ; 

w  points (wi)  =  -dlon_lat ( i ) ; 

else 

ei  =  ei  t  1; 

e__points  (ei )  =  dlon_lat  ( i )  ; 

end 

end 

e_point_deg  =  min (e_points ) ; 
w  point_deg  =  min (w  points); 

e_point  =  acos (sind (tgtlat) *sind (tgtlat)  t  ... 

cosd (tgtlat) *cosd (tgtlat) *cosd (e_point_deg) ) *Rearth; 
w_point  =  acos (sind (tgtlat) *sind (tgtlat)  t  ... 

cosd (tgtlat) *cosd (tgtlat) *cosd ( -w_point_deg) ) *Rearth 
e_index  =  f ind (dlon_lat  ==  e_point_deg) ; 
w_index  =  f ind ( -dlon_lat  ==  w_point_deg) ; 
e_time  =  dlon  pass_time (e_index) ; 
w_time  =  dlon  pass_time (w_index) ; 

else 

e_point  =  0; 
w_point  =  0; 
e_time  =  0; 
w_time  =  0; 

end 

elseif  tgtlat  >  0 
n_point  =  0; 
e_point  =  0; 
w_point  =  0; 
n_time  =  0; 
e_time  =  0; 
w_time  =  0; 
si  =  0 ; 

for  i  =  1 : length (dlat_lon) 
if  dlat_lon(i)  <  0 
si  =  si  +  1; 

s_points(si)  =  -dlat_lon ( i ) ; 

end 

end 

s_point_deg  =  min ( s_points ) ; 

s_point  =  acos (sind (tgtlat  -  s_point_deg) *sind (tgtlat)  +  . 

cosd (tgtlat  -  s_point_deg) *cosd (tgtlat) ) *Rearth; 
s_index  =  f ind ( -dlat_lon  ==  s  point_deg) ; 
s_time  =  pass_time ( s_index) ; 
elseif  tgtlat  <  0 
s_point  =  0; 
e_point  =  0; 
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w  point  =  0; 
s_time  =  0; 
e_time  =  0; 
w_time  =  0; 
n  i  =  0 ; 

for  i  =  1 : length (dlat_lon) 
if  dlat_lon(i)  >  0 
ni  =  ni  +  1; 

n_points(ni)  =  dlat_lon ( i ) ; 

end 

end 

n  point_deg  =  min (n  points); 

n_point  =  acos (sind (tgtlat  +  n_point_deg) *sind (tgtlat)  +  ... 

cosd(tgtlat  +  n_point_deg) *cosd (tgtlat) ) *Rearth; 
n_index  =  f ind (dlat_lon  ==  n_point  deg); 
n_time  =  pass_time (n_index) ; 

end 


%  Find  the  4  section  times  to  be  used  to  correspond  bank  with  the 
correct 

%  direction  in  ground  track  shift 

tlcount  =  0; 

t2count  =  0; 

tScount  =  0; 

t4count  =  0; 

for  i  =  2 : length (time) 

if  rel_states (i-1, 3)  <  0  &&  rel_states ( i , 3 )  >  0 
tlcount  =  tlcount  +  1; 
tl  (tlcount, 1 )  =  time(i); 
tl (tlcount, 2 )  =  1; 

elseif  rel_states ( i- 1 , 6 )  >  0  &&  rel_states ( i , 6 )  <  0 
t2count  =  t2count  +  1; 
t2 (t2count, 1 )  =  time(i); 
t2  (t2count, 2 )  =  2; 

elseif  rel_states ( i- 1 , 3 )  >  0  &&  rel_states ( i , 3 )  <  0 
t3count  =  t3count  +  1; 
t3  (t3count, 1 )  =  time(i); 
t3 (t3count, 2 )  =  3; 

elseif  rel_states ( i- 1 , 6 )  <  0  &&  rel_states ( i , 6 )  >  0 
tlcount  =  tlcount  +  1; 
t4 (tlcount, 1 )  =  time(i); 
tl (tlcount, 2 )  =  4; 

end 

end 

tsectionl  =  [tl  ;  t2;  t3;  tl]; 

[tsection2  tindex]  =  sort (tsectionl (:, 1 )) ; 
for  i  =  1 : length (tsectionl ) 

tsection_start ( i , 1 )  =  tsection2(i,l); 

tsection_start ( i , 2 )  =  tsectionl (tindex (i) , 2) ; 

end 

%globe_plot (rel_states) 
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Determine  Min  Dv  to  Enter  Atmosphere 


min_dv_step  =  0.0025; 
f indmin_states  =  rel_initial_states ; 

Rmin  =  min (rel_states (:,!)); 

Rsensible  =  6515; 

counter  =  0; 

while  Rmin  >  Rsensible 

f indmin_states ( 4 )  =  findmin  states (4)  -  min_dv_step; 
[min_time,min_states]  =  ode45 (@equations_of_motion  ODE45,  ... 

[0  11500] , f indmin_states , options)  ; 

Rmin  =  min (min_states ( :  ,  1 ) ) ; 
counter  =  counter+1; 

end 

min_dv  =  f indmin_states ( 4 ) ; 

delta_min_dv  =  rel_initial_states ( 4 )  -  min_dv; 

%%  -  SKIP  MANEUVER - 


%  Initialize  outer  variables 

options  =  odeset ( ' RelTol '  ,  le-7,  ' AbsTol ' , le-7,  ' Events ' , @breakevent) ; 
skip_inc  =  initialorbit . i ; 
if  initialorbit . i  <=  90 
orig_proretro  =  1; 

else 

orig  proretro  =  -1; 

end 

tsection  =  tsection  start; 


%  Initialize  outer  loop  variables 
skip_initial_states  =  rel  initial_states ; 
skip_v  =  rel_initial_states ( 4 ) ; 
skip_dv_i  =  0.01; 
k=0; 

proretro  =  orig  proretro; 

skip_error  =  []; 

reentry  =  []; 

bankflag  =  []; 

getlower  =  0; 

gethigher  =  0; 

getlower_count  =  0; 

stayV  =  0; 

kcount  =  0; 

startlate  =  0; 

skipstartf lag  =  0; 
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%  Change  velocity  until  minimum  distance  is  within  tolerances  or  until 
%  determined  that  overflight  for  particular  longitudinal  crossing  is 
%  not  possible 
counterlog  =  0; 

for  ti  =  10:12  %  Sweep  Through  Maneuver  Start  Time 

ti 

for  bi  =  1 : 2  %  Switch  Between  positive  and  negative  Bank 

skip_dv  =  .0; 

counterlog  =  counterlog+1 ; 
for  i  =  1:50 
if  bi  ==  1 

banksign  =  1; 

else 

banksign  =  -1; 

end 

%  Sweep  Through  Initial  Velocity 
skip_dv  =  skip_dv  +  skip_dv_i; 
skip_initial_states ( 4 )  =  min_dv  -  skip_dv; 


%  Find  the  flight  profile  with  the  change  in  velocity  occurring  at 

%  time  0 . 

index  =  1; 

timer  =  [ ] ; 

bankplot  =  [ ] ; 

acc  =  [ ] ; 

bank  =  bankangle; 

stop  =  0; 

[skip  time  11, skip_states_ll]  = 
ode45 (@equations_of_motion_ODE45_bank2, . . . 

[0  simtime] , skip_initial_states , options) ; 
skip  points  =  length ( skip_time_l 1 ) ; 
skip_bankplot_l 1  =  bankplot; 
skip_gs_ll  =  acc; 
skip_timer_l 1  =  timer; 

%plotstates (skip_states_ll, skip_time_l 1 ) 

%globe_plot2 (rel_states, skip_states_l 1 ) 

%  Find  the  time  it  takes  to  enter  the  sensible  atm  and  restart  loop 
%  if  sensible  atm  is  not  reached 
i  i  =  0 ; 

while  stop  ==  0 
ii  =  ii  +  1; 

if  skip_states_l 1 ( ii , 1 )  <  Rsensible 
stop  =  1; 

tmaneuver  =  skip_time_ll (ii) ; 

end 

end 
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tstart  =  tsection (13,  1)  + (tsection (16, 1)  - 
tsection ( 12 , 1 ) ) / ( 12 ) * (ti-1 )  -  tmaneuver; 


%  Find  state  variables  at  maneuver  start  time  and  the  change  in 
%  velocity  for  the  first  phase  of  the  trajectory 
stop  =  0; 
i  i  =  0  ; 

while  stop  ==  0; 
ii  =  ii  +  1; 
if  time(ii)  >  tstart 

time_index  =  ii  -  1; 
stop  =  1; 

end 

end 

i  i  =  0  ; 
stop  =  0; 
while  stop  ==  0; 
ii  =  ii  +  1; 

if  reltimer(ii)  >  tstart 
timer_index  =  ii  -  1; 
stop  =  1; 

end 

end 

skiptime_initial_states  =  rel_states (time_index, : ) ; 
skiptime_initial_states ( 4 )  =  skiptime_initial_states ( 4 )  - 

delta_min_dv  -  skip_dv; 

skip_dvl  =  rel_states (time_index, 4 )  -  ... 

skiptime_initial_states (4)  ; 


%  Calculate  the  flight  profile  with  the  bank  maneuver  done 

%  a  the  correct  time 

index  =  1; 

timer  =  [ ] ; 

bankplot  =  [  ] ; 

acc  =  [ ] ; 

[skip  time  11, skip_states_ll]  =  ... 

ode45 (@equations_of_motion_ODE45,  .  .  . 

[0  simtime-tstart] , skiptime_initial_states , options) ; 
skip_bankplot_l 1  =  bankplot; 
skip_gs_ll  =  acc; 
skip_timer_l 1  =  timer; 


%  Concatenate  the  pre-skip  data  with  the  skip  data 
skip_time_ll  =  skip_time_ll  +  tstart; 
skip_timer_l 1  =  skip_timer_l 1  +  tstart; 

skip_time_l  =  vertcat ( time ( 1 : time_index-l ) , skip_time_l 1 ) ; 
skip_states_l  =  vertcat (rel_states ( 1 : time_index-l ,:),.. . 
skip_states_l 1 ) ; 

skip_bankplot_l  =  horzcat (rel_bankplot ( 1 : timer_index-l ) , . . . 
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skip_bank;plot_l  1 )  ; 

skip_gs_l  =  horzcat (rel_gs ( 1 : timer_index-l ) , skip_gs_l 1 ) ; 
skip_timer_l  =  horzcat (reltimer ( 1 : timer_index-l ) , . . . 
skip_timer_l 1 ) ; 

skip_points  =  length ( skip_states_l ) ; 
startime  =  tstart; 
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%  Find  the  states  at  the  highest  and  the  lowest  point  of  orbit 

%  after  1st  skip 

for  ii  =  2 : skip_points 

if  pass_time(i)  >  tstart 

if  skip_states_l ( ii , 5 )  <  0  &&  ... 

skip_states_l (ii-1, 5)  >0  &&  ... 
skip  time_l(ii)  >  (tstart  +  100) 
skip_indexl  =  ii-1; 
reentry  =  [  ] ; 
break 

else 

reentry  =  1; 
gethigher  =  1; 

end 

else 

if  skip_states_l ( ii , 5 )  <  0  &&  skip_states_l ( ii- 1 , 5 )  >  0 
skip_indexl  =  ii-1; 
reentry  =  []; 
break 

else 

reentry  =  1; 
gethigher  =  1; 

end 

end 

end 

time_indexl  =  find (abs (skip_timer_l  -  skip_time_l ( skip_indexl ) ) . . . 

==  min (abs (skip_timer_l  -  skip_time_l ( skip_indexl ) ) ) ) ; 
skip^rp  =  min ( skip_states_l ( 1 : skip_indexl , 1 ) ) ; 
skip_ra  =  skip_states_l ( skip_indexl , 1 ) ; 

skip_rel_initial_states  =  skip_states  1 ( skip_indexl , : ) ; 
skip_dv2_l  =  skip_rel_initial_states ( 4 ) ; 


%  Propagate  orbit  foward  from  the  highest  point  of  the  orbit 

%  without  any  bank  to  find  the  max  latitude  in  order  to  later 

%  determine  the  correct  heading  angle  after  re-circularization 

bank  =  0; 

index  =  1; 

timer  =  [  ] ; 

bankplot  =  []; 

acc  =  [  ] ; 

Period  =  2*pi*sqrt  (skip_rel_initial_states  (1) ''3/mu)  ; 

[ skip_time_2 ,  skip_states_2 ]  =  ode45 (@equations_of_motion_ODE45, . . . 

[0  2*Period] , skip_rel_initial_states ,  options)  ; 
maxlat  =  max (abs ( skip_states_2 ( : , 3) ) ) ; 
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%  Find  the  circular  velocity ( relative  to  the  rotating  planet)  by 
%  setting  gamma  dot  =  0  and  solving  equation  3.66  for  relative 
%  velocity.  For  derived  circular  velocity  iterate  to  find  the 
%  corresponding  heading  angle  given  the  max  lat  calculated  above 


%  Initialize  loop  variables 
kk  =  0; 

psides  =  skip_rel_initial_states ( 6 ) ; 
psi_orig  =  psides; 
dhead  =  0.01; 
loop  =  1; 


while  loop  ==  1 


%  Define  variable  used  in  Eg  3.66 


skipR 

=  skip  rel  initial  states (1); 

skiptheta 

=  skip  rel  initial  states  (2); 

skipphi 

=  skip  rel  initial  states (3); 

skipGamma 

=  0.0; 

skippsi 

=  skip  rel  initial  states (6); 

skipSigma 

=  deg2rad (bank) ; 

skipg 

=  gO  *  (Rearth/skipR)  ^'2 . 0 ; 

skiprho 

=  AtmosModel ( skipR-Rearth,  2 ) ; 

skipCl 

=  vehicle. Cl; 

skips 

=  vehicle. S; 

skipm 

=  vehicle. m; 

%  Solve  for  velocity  in  equation  3.66 
A 

(1/ skipR) + ( (skiprho*skipCl*skipS) / (2*skipm) ) *cos (skipSigma) ; 

B  =  2 *wearth*cos ( skipphi ) *cos ( skippsi ) ; 

C  =  - (skipg*cos (skipGamma) ) + 

skipR*wearth^2 *cos (skipphi) * (cos (skipphi) *cos (skipGamma) +sin (skipphi) *s 
in (skippsi) *sin (skipGamma) ) ; 

Vcirc2  =  (-B+ (B^2-4*A*C)  ■^O  .  5)  /  (2*A)  ; 


%  Find  the  corresponding  Vcirc  and  heading  angle 

psinew  =  skippsi; 

done  =  0 ; 

cnt  =  0 ; 

skippsi  =  psides; 

while  (done  ==  0) 

cnt  =  cnt+1; 

done  =  1 ; 

A 

(1/ skipR) + ( (skiprho*skipCl*skipS) / (2*skipm) ) *cos (skipSigma) ; 
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B  =  2 *wearth*cos ( skipphi ) *cos ( skippsi ) ; 

C  =  - (skipg*cos (skipGamma) ) + 

skipR*wearth'^2*cos  (skipphi)  *  (cos  (skipphi)  *cos  (skipGamma)  +sin  (skipphi)  *s 
in (skippsi) *sin (skipGamma) ) ; 

Vcirc2  =  (-B+ (B^2-4*A*C)  ■^O  .  5)  /  (2*A)  ; 

psinew  =  psides  + 

asin (2*pi*skipR*sin (psides) / (86400*Vcirc2) ) ; 

if  (abs ( skippsi -psinew) >0.0000001) 
done  =  0 ; 

skippsi  =  psinew; 

end 

end 

skip_rel_initial_states ( 6 )  =  psinew; 
skip_rel_initial_states ( 4 )  =  Vcirc2; 
skip_rel_initial_states ( 5 )  =  0; 
skip_dv2  =  Vcirc2  -  skip_dv2_l; 


%  Propogate  Circular  Orbit  forward  in  time  for  2  periods 

index  =  1; 

timer  =  [ ] ; 

bankplot  =  []; 

acc  =  [ ] ; 

starttime  =  skip_time_l ( skip_indexl ) ; 

[ skip_time_2 , skip_states_2 ]  = 
ode45 (@equations_of_motion_ODE45, [0 
2*Period] , skip_rel_initial_states , options) ; 

skip_maxlat  =  max ( skip_states_2 ( : , 3 ) ) ; 


%  Compare  the  max  latitude  of  new  circular  orbit  and  compare  to 
%  known  desired  max  latitude  of  non-circular  orbit.  Break  out 
%  of  loop  once  the  initial  heading  angle  gives  the  correct  max 
%  latitude 

if  skip  maxlat  >  maxlat  -  0.0001  &&  skip_maxlat  <  maxlat  + 

0.0001; 

break; 

end 


%  Algorithm  to  change  the  step  size  of  the  d-heading  correction 

kk  =  kk+1; 

signchange  =  sign ( skip_rel_initial_states ( 6 ) ) ; 

if  skip  maxlat  >  maxlat  &&  sign (psi_orig)  ==  signchange 
zeroin2 ( kk)  =  1 ; 

elseif  skip_maxlat  >  maxlat  &&  sign (psi_orig)  ~=  signchange 
zeroin2(kk)  =  -1; 

elseif  skip_maxlat  <  maxlat  &&  sign (psi_orig)  ==  signchange 
zeroin2(kk)  =  -1; 

elseif  skip_maxlat  <  maxlat  &&  sign (psi_orig)  ~=  signchange 
zeroin2 ( kk)  =  1 ; 

end 

if  kk  >  1 
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if  zeroin2 ( kk)  ==  - zeroin2 ( kk- 1 ) 
dhead  =  dhead/2; 

end 

end 

if  kk  >  2 

if  zeroin2(kk)  ==  zeroin2 ( kk- 1 )  &&  ... 

zeroin2(kk)  ==  - zeroin2 ( kk-2 ) 
dhead  =  dhead/2; 

end 

end 


%  Correct  Psi  Desired  to  reach  the  correct  maximum  latitude 
psil  =  skip_rel_initial_states ( 6 ) ; 

if  skip_maxlat  >  maxlat  &&  psil  >  0  &&  psil  <=  pi/2 
psides  =  psides  -  dhead; 


elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

> 

0 

&& 

psil 

<=  pi/2 

elseif  skip  maxlat  > 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

< 

0 

&& 

psil 

<=  pi/2 

elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
-  dhead; 

&& 

psil 

< 

0 

&& 

psil 

<=  pi/2 

elseif  skip  maxlat  > 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

> 

0 

&& 

psil 

>  pi/2 

elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
-  dhead; 

&& 

psil 

> 

0 

&& 

psil 

>  pi/2 

elseif  skip  maxlat  > 
psides  =  psides 

maxlat 
-  dhead; 

&& 

psil 

< 

0 

&& 

psil 

>  pi/2 

elseif  skip  maxlat  < 
psides  =  psides 

maxlat 
+  dhead; 

&& 

psil 

< 

0 

&& 

psil 

>  pi/2 

end 

if  kk  >  25 
break 

end 


end 

%  Calculate  the  change  in  inclination 
if  psil  >  pi/2 

skip_inclination  =  180  -  rad2deg (maxlat) ; 

else 

skip_inclination  =  rad2deg (maxlat) ; 

end 

skip_delta_i  =  skip_inclination  -  initialorbit . i ; 


Determine  if  new  orbit  changes  from  prograde  to  retrograde  or 
vice  versa 

if  abs ( skip_rel_initial_states ( 6 ) )  <=  pi/2 
proretro  =  1; 

else 

proretro  =  -1; 

end 
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%  Propogate  Circular  Orbit  forward  in  time  for  the  rest  of  simtime 

index  =  1; 

timer  =  [ ] ; 

bankplot  =  [ ] ; 

acc  =  [ ] ; 

starttime  =  skip_time_l(skip_indexl); 

[ skip_time_2 , skip_states_2 ]  =  ode45 (@equations_of_motion_ODE45, . . . 

[0  simtime  -  starttime] , skip_rel_initial_states, options) ; 
skip_maxlat  =  max ( skip_states_2 ( : , 3 ) ) ; 
skip_bankplot_2  =  bankplot; 
skip_gs_2  =  acc; 
skip_timer_2  =  timer; 


%  Concatenate  the  first  preskip  data  with  post  circularization  data 
skip_time  2  =  skip_time  2  +  starttime; 
skip_timer_2  =  skip_timer_2  +  starttime; 

skip_time_i  =  vertcat (skip_time_l (1 : skip_indexl-l ) , skip_time_2) ; 
skip_states_i  =  vertcat (skip_states_l (1 : skip_indexl-l, . 
skip_states_2 ) ; 

skip_bankplot_i  =  horzcat ( skip_bankplot_l ( 1 : time_indexl- 1 ) , . . . 
skip_bankplot_2 ) ; 

skip_timer_i  =  horzcat ( skip_timer_l ( 1 : time_indexl-l ),.. . 
skip_timer  2); 

skip_gs_i  =  horzcat ( skip_gs_l ( 1 : time_indexl- 1 ), skip_gs_2 ) ; 
skip  points  =  length ( skip_time_i ) ; 


%  Correct  Longitude  to  be  from  -180  to  180 
for  ii  =  Irskip  points 

if  skip_states_i ( ii ,  2 )  >  pi 

skip_states_i ( ii : end,  2 )  =  -  (pi  -  ... 
( skip_states_i ( ii : end, 2 )  -  pi) ) ; 

elseif  skip_states_i ( ii : end, 2 )  <  -pi 

skip_states_i ( ii : end, 2 )  =  (pi  +  ... 

( skip_states_i ( ii : end, 2 )  +  pi) ) ; 

end 

end 

skip_lat_i  =  skip_states_i ( : , 3 ) ; 
skip_lon_i  =  skip_states_i ( : , 2 ) ; 


%  Correct  Longitude  to  be  from  -180  to  180  for  skip_2  data 
for  ii  =  1 : length ( skip_states_2 ) 
if  skip_states_2 ( ii , 2 )  >  pi 

skip_states_2 ( ii : end, 2 )  =  -(pi  -  ... 

( skip_states_2 ( ii : end, 2 )  -  pi) ) ; 

elseif  skip_states_2 ( ii : end, 2 )  <  -pi 

skip_states_2 ( ii : end, 2 )  =  (pi  +  ... 

( skip_states_2 ( ii : end, 2 )  +  pi) ) ; 

end 

end 
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sk:ip_lat_2  =  sk;ip_states_2  ( : ,  3 )  ; 
sk;ip_lon_2  =  sk;ip_states_2  ( : ,  2 )  ; 


%  Find  the  change  in  RAAN 

%  First  find  the  longitude  of  the  equatorial  crossing  after 
maneuver 

if  ti  <  10 

for  ii  =  2 : length ( skip_states_2 ) 

if  skip_states_2 (ii-1, 3)  <  0  &&  skip_states_2 ( ii , 3 )  >  0 
break 

end 

end 

else 

for  ii  =  2 : length ( skip_states_2 ) 

if  skip_states_2 (ii-1, 3)  >  0  &&  skip_states_2 ( ii , 3 )  <  0 
break 

end 

end 

end 

lat2  =  skip_states_2 ( ii ,  3 )  ; 
latl  =  skip_states_2 (ii-1, 3) ; 
latx  =  0; 

lon2  =  skip_states_2 ( ii , 2 ) ; 
lonl  =  skip_states_2 (ii-1, 2) ; 

maneuver  Ion  =  (latx  -  latl)/(lat2  -  latl)*(lon2  -  lonl)  +  lonl; 


%  Now  find  the  Longitude  of  the  same  equatorial  crossing  of  no-skip 
%  data 
if  ti  <  10 

ti_index  =  find (time  ==  tsection ( 1 6 , 1 ) ) ; 

else 

ti_index  =  find (time  ==  tsection ( 1 8 , 1 )) ; 

end 

lat2  =  rel_states (ti_index, 3) ; 
latl  =  rel_states (ti_index-l,  3)  ; 
latx  =  0; 

lon2  =  rel_states (ti_index, 2 ) ; 
lonl  =  rel_states (ti_index-l,  2) ; 

orig_lon  =  (latx  -  latl)/(lat2  -  latl)*(lon2  -  lonl)  +  lonl; 
RAAN_shift  =  rad2deg (maneuver_lon  -  orig_lon) ; 


%  globe_plot2 (rel_states, skip_states_i ) 

%  plotstates ( skip_states_i , skip_time_i) 
plotm ( [tgtlat  skip_phi] , [tgtlon  tgtlon],'r') 
figure 

plot ( skip_timer_i , skip_bankplot_i ) 


%  Find  the  velocity  needed  to  re-circularize  at  the  original  orbit 
rO  =  initial_states ( 1 ) ; 

skip_transf er_dv_guess  =  sqrt (mu/skip_ra  -  mu/ (skip_ra  +  rO)) 
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-  sqrt (mu/skip_ra  -  mu/ ( skip_ra+skip  rp) ) ; 
skip_ra2  =  skip_ra; 
skip_r_tol  =  0.1; 

jj  =  0; 

transf er_initial_states  =  skip_rel_initial_states ; 

transf er_initial_states ( 4 )  =  skip_rel_initial_states ( 4 )  +  ... 

skip_transf er_dv_guess ; 
skip_transf er_dv  =  0.03; 

while  skip_ra2  >  rO  +  skip_r_tol  | |  skip  ra2  <  rO  -  skip_r_tol 


index  =  1; 
timer  =  [ ] ; 
bankplot  =  []; 
acc  =  [ ] ; 

[skip_time_t, skip_states_t]  = 
ode45 (@equations_of_motion_ODE45, . . . 

[0  simtime  - 

starttime] , transf er_initial_states , options) ; 

skip_ra2  =  max ( skip_states_t ( : , 1 ) ) ; 

%  Algorithm  to  change  the  step  size  of  the  dv 

correction 

jj  =  jj+1; 

if  skip_ra2  >  rO 

zeroin  ( j  j )  =  1 ; 

else 

zeroin ( j  j )  =  - 1 ; 

end 

if  jj  >  1 

if  zeroin(jj)  ==  -zeroin ( j j -1 ) 

skip_transf er_dv  =  skip_transfer_dv/2 ; 

end 


2) 


end 

if  jj  >  2 

if  zeroin(jj)  ==  zeroin(jj-l)  &&  zeroin(jj)  ==  -zeroin(jj- 
skip_transfer_dv  =  skip_transfer_dv/2 ; 

end 

end 


if  skip_ra2  <  rO 

transf er_initial_states ( 4 )  =  transf er_initial_states ( 4 )  + 

skip_transf er_dv; 

else 

transf er_initial_states ( 4 )  =  transf er_initial_states ( 4 )  - 

skip_transfer_dv; 

end 

end 

transf er_states_index  =  f ind ( skip_states_t  ==  skip_ra2); 
transf er_states  =  skip_states_t (transfer_states_index, : ) ; 
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%  Define  variable 
transfer_R 
transfer_theta 
transfer  phi 
transfer  Gamma 
transfer_psi 
transfer  Sigma 
transfer_g 
transfer  rho 
transfer^Cl 
transfer_S 
transfer  m 


used  in  Eg  3.66 
:  transfer_states ( 1 ) ; 

^  transfer_states (2 ) ; 

:  transf er_states ( 3 ) ; 

^  0.0; 

^  transf er_states ( 6 ) ; 

:  deg2rad (bank) ; 

^  gO  *  (Rearth/transf  er_R)  ^^2 . 0  ; 

^  AtmosModel (transfer_R-Rearth,  2 ) ; 
^  vehicle. Cl; 

^  vehicle. S; 

^  vehicle. m; 


%  Solve  for  velocity  in  equation  3.66 
A 

(1/ transfer_R) + ( (transfer_rho*transfer_Cl*transfer_S) / (2*transfer_m) ) *c 
os  (transfer_Sigma) ; 

B  =  2*wearth*cos (transfer_phi) *cos (transfer_psi)  ; 

C  =  -(transfer  g*cos (transfer_Gamma) ) + 

transfer_R*wearth^2*cos (transfer  phi) * (cos (transfer  phi) *cos (transfer_G 
amma) +sin (transfer_phi) *sin (transfer^psi) *sin ( transf er_Gamma) ) ; 
transfer  Vcirc  =  (-B+ (B^2-4*A*C) ^0 . 5) / (2*A) ; 


%  Interpolate  other  data  to  find  data  at  actual  pass 
[ skip_pass_states_i ,  skip_pass_time_i ]  =  ... 

states_at_lonpass ( skip_states_i ,  skip_time_i,  tgtlon)  ; 

skipcount  =  i  +  ((bi-l)*27)  +  ((ti-l)*54); 


test (skipcount, 1) 
test (skipcount, 2) 
test (skipcount, 3) 
test (skipcount, 4) 
test (skipcount, 5) 
test (skipcount, 6) 
test (skipcount, 7) 
test (skipcount, 8) 
test (skipcount, 9) 
test (skipcount, 10) 
test (skipcount, 11) 
test (skipcount, 12) 
test (skipcount, 13) 
test (skipcount, 14) 
test (skipcount, 15) 
test (skipcount, 16) 

if  max  ( skip_gs__i 
break 

end 


=  skip_dvl; 

=  skip_dv2; 

=  transfer_initial_states ( 4 )  -  skip_dv2_l; 

=  transfer_Vcirc  -  transf er_states ( 4 ) ; 

=  skip_dvl  +  skip_dv2; 

=  test (skipcount, 3)  +  test (skipcount, 4) +skip_dvl; 

=  skip_delta_i ; 

=  RAAN^shift; 

=  max ( skip_gs_i ) ; 

=  skip_rp  -  Rearth; 

=  tstart; 

=  tstart  t  tmaneuver; 

=  (bankangle) *banksign; 

=  counterlog; 

=  initialorbit . i ; 

=  initialorbit . a  -  Rearth; 

)  >  10 
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end 


End  of  while  loop 


end 

end 

end 


filewrite  =  [ ' RAAN  and  Inc  for  dv  sweep',  num2str (testnum) ] 
xlswrite (filewrite, test) 
end 


Raan  Inc  Surf ace. m 


clear  all 
close  all 
clc 

data  =  xlsread ( ' RAAN  and  Inc  for  dv  sweep2.xls'); 


for  i  =  I : length (data ( : , 8 ) ) 
if  data (i, 8)  >  180 

data(i,8)  =  data(i,8)  -  360; 
elseif  data(i,8)  <  -180 

data(i,8)  =  data(i,8)  +  360; 

end 

end 


X  =  data  (•.,!); 
y  =  data  ( : , 8 )  ; 
z  =  data ( : , 6 ) ; 

F  =  TriScatteredInterp (x, y, z ) ; 


xi  =  linspace (min (x) , max (x) , 300 ) ; 
yi  =  linspace (min (y) , max (y) , 300 ) ; 

[qx,qy]  =  meshgrid (xi , yi ) ; 
qz  =  F  (qx,  qy)  ; 

%  qz (end, end)  =  5; 

%  qz (1, 1)  =  0; 

figure 

subplot (2 , 1 , 1 ) 
mesh (qx, qy, qz) ; 
hold  on 

%  plot3(x,y,z,'.k', ' markers ize ' , 14) 
grid  on 

xlabel (' Change  in  Inclination  (degs) ', ' fontsize ' , 14 ) 
ylabel (' Change  in  RAAN  (degs)  fontsize ', 14 ) 
zlabel (' Velocity  Change  (km/s) ', ' fontsize ', 14 ) 

%  colorbar 
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%  title ({' Velocity  Change  Cost  for  a  Desired  Inclination  and  RAAN 
Change ' ,  .  .  . 

%  'Using  an  Atmospheric  Skip  Manuever  w/  Re-Circularization  at 
Original  Altitude Bank  =  80  degs Initial  Orbit:', 'a  =  6878  km', 
%  'e  =  0.0', 'i  =  35  degs ' } , ' fontsize ' , 16) 


subplot  (2 , 1,2) 

con t our f (qy, qx, qz , 1 8 ) ; 

hold  on 

%  plot3(x,y,z,'.k', ' markers ize ' , 14) 
grid  on 

xlabel (' Change  in  Inclination  (degs) ', ' fontsize ', 14 ) 
ylabel (' Change  in  RAAN  (degs)  ',' fontsize ', 14 ) 
zlabel (' Velocity  Change  (km/s) ', ' fontsize ', 14 ) 
colorbar 

%  title ({' Velocity  Change  Cost  for  a  Desired  Inclination  and  RAAN 
Change ' ,  .  .  . 

%  'Using  an  Atmospheric  Skip  Manuever  w/  Re-Circularization  at 
Original  Altitude ',' Bank  =  80  degs ',' Initial  Orbit:', 'a  =  6878  km', 
%  'e  =  0.0', 'i  =  35  degs '},' fontsize ', 16) 


figure 
hold  on 
grid  on 
for  i  =  1:24 
if  i  ==  1 

color  =  ' db ' ; 
elseif  i  ==  2 

color  =  ' ob ' ; 
elseif  i  ==  3 

color  =  ' dr ' ; 
elseif  i  ==  4 

color  =  ' or ' ; 
elseif  i  ==  5 

color  =  ' dg ' ; 
elseif  i  ==  6 

color  =  ' og ' ; 
elseif  i  ==  7 

color  =  ' dc ' ; 
elseif  i  ==  8 

color  =  ' oc ' ; 
elseif  i  ==  9 

color  =  ' dk ' ; 
elseif  i  ==  10 

color  =  ' ok ' ; 
elseif  i  ==  11 

color  =  ' dm ' ; 
elseif  i  ==  12 

color  =  ' om ' ; 
elseif  i  ==  13 

color  =  ' *b ' ; 
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elseif  i  ==  14 

color  =  ' +b ' ; 
elseif  i  ==  15 

color  =  ' *r ' ; 
elseif  i  ==  16 

color  =  ' +r ' ; 
elseif  i  ==  17 

color  =  ' *g ' ; 
elseif  i  ==  18 

color  =  ' +g ' ; 
elseif  i  ==  19 

color  =  ' *c ' ; 
elseif  i  ==  20 

color  =  ' +c ' ; 
elseif  i  ==  21 

color  =  '  *k; '  ; 
elseif  i  ==  22 

color  =  ' +k ' ; 
elseif  i  ==  23 

color  =  ' *m ' ; 
elseif  i  ==  24 

color  =  '  +in '  ; 

end 

lowlimit  =  (i-l)*30+l; 
uplimit  =  i*30; 

plot 3 (x (lowlimit : uplimit, 1 ) , y (lowlimit : uplimit, 1 ) , z (lowlimit : uplimit, 1 ) 
, color, 'markersize ' , 10, ' linewidth ' , 2 ) 

xlabel (' Change  in  Inclination  (degs) ', ' fontsize ' , 14 ) 
ylabel (' Change  in  RAAN  (degs)  ', ' fontsize ', 14 ) 
z label (' Delta  V  (km/ s) ', 'fontsize', 14) 

end 

title ({' Velocity  Change  Cost  for  a  Desired  Inclination  and  RAAN 
Change ' ,  .  .  . 

'Using  an  Atmospheric  Skip  Manuever  w/  Re-Circularization  at 
Original  Altitude ' , ' Bank  =  80  degs ' , 'Initial  Orbit : ' , ' a  =  6878  km ' , . . . 

'e  =  0.0',  'i  =  28.52  degs  (Cape  Canaveral  Latitude)  '},' fontsize ', 16) 
legend ({' time  1;  (  +  )  Bank',  'time  1;  (-)  Bank',  'time  2;  (  +  )  Bank',  'time 

2;  (-)  Bank' , ' time  3;  (+)  Bank' , ' time  3;  (-)  Bank' , . . . 

'time  4;  (  +  )  Bank',  'time  4;  (-)  Bank',  'time  5;  (  +  )  Bank',  'time  5; 

(-)  Bank'  ,  ' time  6;  (  +  )  Bank'  ,  ' time  6;  (-)  Bank' ,  ' time  7;  (  +  )  Bank' ,  .  . . 

'time  7;  (-)  Bank', 'time  8;  (+)  Bank', 'time  8;  (-)  Bank', 'time  9; 

(  +  )  Bank '  ,  ' time  9 ;  ( - )  Bank  '  ,  ' time  10 ;  (  +  )  Bank ' ,  .  .  . 

'time  10;  (-)  Bank', 'time  11;  (+)  Bank', 'time  11;  (-)  Bank', 'time 

12;  (+)  Bank', 'time  12;  (-)  Bank'}) 

figure 

plot (data ( : , 9 ) , data ( : , 6 ) ,  '  .  '  )  ; 
grid  on 

xlabel ( ' Deceleration  (g'  ' s)  ',  'fontsize', 14) 

ylabel (' Total  Velocity  Change  Required  (km/s', ' fontsize ', 14 ) 
xlim ( [ 0  10 ] ) 
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fitness .m 


function  [  Z  ]  =  fitness (  A  ) 


global  toa_fit  dv_fit  lat_fit 


%  n  =  max (size (A)); 


%  for  i  =  1 : n 

%  Z(i)  =  norm(dv  -  A ( i ) *abs ( sin ( toa . *2*pi/24-B ( i ) )  +  C(i)/A(i))) 

%  end 

if  lat_fit  <  0 
B=  1.15; 

else 

B=  1.15  -  pi; 

end 

Z  =  norm(dv_fit  -  A ( 1 ) *abs ( sin ( toa_f it . *2*pi/24-B)  +  A(2)/A(l))); 


end 


data  sort.m 


%%  Data  Sort 

9-  9- 
0  0 


clear  all 
close  all 
clc 


%  Define  the  input  filename  to  be  sorted  and  the  column  to  sort  by 
filename  =  'tgtlat  v  35i'; 
sort  on  column  =  3; 


%  Bring  in  data  and  sort  all  of  it  by  defined  column 
data  all  =  xlsread (filename) ; 

datapoints  =  length (data_all (:, sort_on_column) ) ; 

[sorted_column  sort_index]  =  sort (data_all ( : , sort_on_column) )  ; 
for  i  =  Irdatapoints 

sorted_data_all ( i ,  : )  =  data_all ( sort_index ( i ) ,  : )  ; 

end 


%  Separate  by  type 
phasecount  =  0; 
planecount  =  0; 
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skipcount  =  0; 

for  i  =  1 : datapoints 

if  sorted_data_all (i,  23)  ==  1 

phasecount  =  phasecount  +  1; 

phase_data (phasecount, : )  =  sorted_data_all (i, : ) ; 
elseif  sorted_data_all (i, 23)  ==  2 
planecount  =  planecount  +  1; 

plane_data (planecount, : )  =  sorted_data_all (i, : ) ; 
elseif  sorted_data_all (1, 23)  ==3 
skipcount  =  skipcount  +  1; 

skip_data (skipcount, : )  =  sorted_data_all (i, : ) ; 

end 

end 


%  Save  data 

filenamel  =  'tgtlat  v  35i'; 
filename2  =  [filename, '  sorted']; 
filename3  =  [filenamel, 
filename4  =  [filenamel, 
filenames  =  [filenamel, 

testheader  =  {'Test  #',  'Run  #',  'Target  Lat ' ,  'Target  Long',  'Bank 
Angle  (deg) ' ,  ... 

'a',  'e',  'i',  '  RAAN '  ,  'AoP',  'True  Anamoly',  'Initial  V,  ... 

'Initial  Latitude',  'Initial  Longitude',  'N  dist',  'E  dist',  'W 
dist ' ,  ... 

'S  dist',  'N  time',  'E  time',  'W  time',  'S  Time',  'type',  'Pass  #' 


'  phase ' ] ; 

'  plane ' ] ; 

'  skip ' ] ; 

'Run  #',  'Target  Lat',  'Target  Long', 


'Start  Time',  'ToA',  'dvl',  ' dv2 ' ,  'dv3',  'dv4',  'dvtotal  1', 

' dvtotal  2 ' ,  ... 

'Inc  Change',  'Perigee  R',  'Apogee  R',  'Overflight  R',  'Perigee 

Alt',  ... 

'Apogee  Alt',  'Overglight  Alt',  'Max  G''s',  'Heat  Flux',  'Ground 
Res' } ; 

xls write ( f ilename2 , testheader)  ; 
xlswrite (filenames, testheader)  ; 
xls write ( filename 4 , testheader) ; 
xlswrite (filenames, testheader)  ; 
xlswrite (filenames, sorted_data_all , 1, 'A2 ' ) ; 
xlswrite (filenames , phase  data,  1 ,  ' A2 ' ) ; 
xlswrite ( filename 4 , plane_data, 1 , ' A2 ' ) ; 
xlswrite (filenames, skip_data, 1, 'A2 ' ) ; 


%  Re-Write  data  for  use  in  plots 
%  tgtlat_skip__data  ( ; ,  : )  = 

[skip_data (:,26)/3600, skip_data ( : , 3) , skip_data ( : , 31) ] ; 
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curve  fit  main.m 


clear  all 
close  all 
clc 


data  =  xlsread ( ' tgtlat  -  65  to  65  skip.xls'); 
data2  =  xlsread (' tgtlat  -  65  to  65  plane.xls') 
points  =  length (data) ; 
points2  =  length (data2 ) ; 

%  Sort  each  run  into  its  own  variable 
lat  =  -60; 

latstr  =  num2str (abs (lat) )  ; 
filename  =  [' data_n latstr ] ; 
filename2  =  ['data2  n', latstr]; 
j  =  0; 

jj  =  0; 

for  k  =  1:40 

for  i  =  1 : points 

if  data (i, 3)  ==  lat 

j  =  j  +  1; 

eval ( [filename, ' ( j , : )  =  data (i,:); 
data_temp ( j , : )  =  data(i,:); 

end 

end 

for  i  =  l:points2 

if  data2(i,3)  ==  lat 

jj  =  jj  +  1; 

eval ( [ f ilename2 ,  '  ( j  j ,  : )  =  data2  ( i , 
data2_temp ( j j , : )  =  data2(i,:); 

end 

end 

lat  =  lat  +  1; 

latstr  =  num2str (abs (lat) )  ; 

if  lat  >  0 

filename  =  [' data_p latstr ] ; 
filename2  =  [' data2_p latstr ] ; 

else 

filename  =  [' data_n latstr ] ; 
filename2  =  [' data2_n latstr ] ; 

end 


%  Create  Least  Square  Matrices 
if  j  ~=  0 

%for  jj  =  1 

toa  =  data_temp ( : , 25) /3600; 

toa2  =  data2_temp ( : ,  26) /3600; 

scale  =  2*pi/24; 

scale2  =  2*pi/24; 

toa  =  toa*scale; 

toa2  =  toa2*scale2; 
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o\°  o\0  o\° 


dv  =  data_temp ( : , 31 ) ; 
dv2  =  data2_temp ( : , 31 ) ; 

A  =  [sin(toa)  cos  (toa)  ones  (length (toa) , 1) ] ; 

A2  =  [sin(toa2)  cos(toa2)  ones (length (toa2) , 1) ] ; 

%A  =  [toa. ''5  toa.''4  toa. '^3  toa. '^2  toa  ones  (length  (toa)  ,  1)  ]  ; 
b  =  dv  ; 
b2  =  dv2 ; 

c  =  inv (transpose (A) *A) *transpose (A) *b; 
c2  =  inv (transpose (A2 ) *A2 ) *transpose (A2 ) *b2 ; 

X  =  linspace (0, scale*24, 200) ; 

y  =  c(l)*sin(x)  +  c(2)*cos(x)  +  c(3); 

y2  =  c2(l)*sin(x)  +  c2(2)*cos(x)  +  c2(3); 

%y  =  c(l)*x.''5  +  c(2)*x.''4  +  c(3)*x.''3  +c(4)*x.''2  +  c(5)*x 

+c  ( 6 ) ; 

figure 

plot (toa, dv, ' . ' ) 

hold  on 

grid  on 

ylim ( [0  13] ) 

plot (x, y, ' r ' ) 

plot (toa2, dv2 , ' . g ' ) 

plot (x, y2, ' k' ) 

%end 

end 
j  =  0; 

jj  =  0; 

clear  data_temp  toa  adjust  dv  A  b  c  x  y  data2_teinp  toa2  adjust2  dv2 
A2  b2  c2  y2 
end 

o 

0 

%  A  =  [data(:,l).^2  data ( : , 1 )  data ( ; , 3 ) ] ; 

%  b  =  data  ( : , 4 )  ; 

%  c  =  inv (transpose (A) *A) *transpose (A) *b; 

%  X  =  linspace (0, 30, 200)  ; 

%  %y  =  c (1) *sqrt (x) +c  (2) ; 

%  y  =  c(l)*x.''2  +  c(2)*x  +  c(3) 

q, 

0 

%  plot (data (:, 1 ), b, '.' ) 

%  hold  on 
%  plot (x, y, ' r ' ) 

g, 

o 

q, 

0 

q, 

0 

%  data  =  xlsread (' least  squares  dv  vs  di.xlsx'); 

%  A  =  [ -data  ( : ,  1 )  . '^2  -data(:,l)  data(:,3)]; 

%  b  =  data  ( : , 4 )  ; 

%  c  =  inv (transpose (A) *A) *transpose (A) *b; 

%  X  =  linspace (0, 30, 200) ; 

%  %y  =  c  ( 1 ) *sqrt (x) +c (2 ) ; 

y  =  c(l)*x.''2  +  c(2)*x  +  c(3) 

figure 
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o\°  o\°  o\0 


plot(data(:,l) ,b,  ' .  ') 

hold  on 

plot (x, y, ' r ' ) 
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